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CARDCO's new DIGI-CAM '" is a \i<lm 
digitiTCT Ihdl leis you tr.iasfonn jasl <ilx)u( 
anything you tvin shtiol wilh ,\ video oimcra 
ink) <i black-and-white- d\^i\A ini.isx'. And, 
Willi your Commodore 64' , you can make 
pidiirps of th.ll imai^c. 
DIGI-CAM ' comes complete with n hlack- 
and- white video camera, a di^^iti/er, <ind 
soflwate. Its the most comprehensive p<ic:kaj{e 
at the most competitive price around. And it's 
aCARDCOqiwIitypnxluct. 

FOCUS.. .SHOOT.. .STORE... 



AND PRINT! 

DIGI-CAM 'U incredibly 
easy to use. Simply ftKiis < 

the video camera on your -^ 

subject, view the shot on 

your Commodore 64 

monitor, store the shot on 
CARDCO's DIGI-CAM'' 
software . . . and print out. 
You can enhance or 
change the on-screen 



imnj}e — or combine il with text — bcoiuse 
a version of CARDCO's Paint Now/Graph 
New software is built in ... at no extra cost! 
Make T-shirLs for your Iriends"', Christmas 
oirds and l)irlh announcemenLs ... maps, 
jjraplis, photos, secur- 





ity i.tl.'s... useil for 
bu-siness or pure 
pleasure. Plus, you 
can transler still 
ima^iesviamfxlcm 
to other 

Q)mm(xlorc com- 
puters . . . and share 
>'0ur shots! (Soon to 

U' compatible with Apple 

and IBM.) 

CAMERA, DIGITIZER, 
SOFTWARE... THE 
WHOLE PICTURE 
FOR S250' 
DIGI-CAM "Irom 
CARDCO. For just S250 




... shouldn I you be in pictures^ 
CARDCO's DIGI-CAM ' " is available at fine 
computer stores everywhere. For more infor- 
mation contact your 

loail CARDCO 
dealer. 
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"The world s largest manufacturer 

ol Commodore' accessories." 

300 S. Topeka, WichiUi, Kanvis 67202 
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efore we talk about what's in this issue of Ahoy!. 
let's talk about what's nor in it. Two other Com- 
modore magazines, you may have noticed, ran re- 
views of the Commodore 128 Personal Computer 
in their June issues. Why did Ahm!. which always leads the 
pack in announcing and reviewing new products, allow it.se!f 
to be scooped in this singularly important insUtnce? 

Tina Turner summed it up best when she said, "We never 
ever do nothing nice and easy." We weren't about to prepare 
a feature article on the 128 based on an afternoon's experi- 
mentation with the machine at Commodore's headquarters, as 
our two competitors did. We published our surface analysis 
of the 128 in April: not until Commodore shipped us a model 
of our own did Morton Kevelson sit down for a several-week 
round of testing the machine inside and out. The first pieces 
based on that research appear in the August Ahoy! As anxiou.s 
as you are to read the definitive review of the Commodore 
128. we know a month is a long time to wait. But we've packed 
the July Ahoy! full of programs and features that should help 
make that month pass quickly: 

• The graphics theme begun last issue continues with Part 
II of Roger Macomber's tutorial on Screen Dumping on the 
Commodore 64, providing an onscreen Etch-a- Sketch (turn 
to page 73). Then, Morton Kevelson takes an extended look 
at The Print Shop, certainly one of the most popular Commo- 



AHENTION COMMODORE B4 OWNERS 

DID YOU DUYTHE WRONG PRODUCT? 

WE'LL PAY YOU FOR YOUR MISTAKE! 



PRINTER INTERFACE BLUES 



No graphicii, doesn't work with 
your software. Bad aspect ratios, 
no available buffer, well you 
wouldn't have these problems with 
the Micro- World M W-350. We II 
give you $.59. off the list price of 
.?129. for that strange interface 
that's causing you trouble. 



LAST YEARS BACK 
UP SOFTWARE 



Everyone ha.*; Bnck-up software 
that reproduces errors, but will it 
back up non- standard sectors, re- 
produce density frequency 
alterations,alter the number of sec- 
tors, copy single sync bil.s, and 
reformat a single track? We don't 
think so. .Send your antique bark 
and recieve $2.'i. credit toward the 
"New Revised Clone Machine" at 
$49.9-"). We've added an MSD 
dual drive Clone Machine also 
available for only .$:19.9,'"). I'pgrade 
your products to the latest state of 
the ;irt today. ^^ ^|^ 
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dore programs of all time. Morton and Michael Beutjer (au- 
thor of last issue's Quad-Print) each contribute an enhance- 
ment utility that will help users get even more out of the pro- 
gram, (Turn to page 50.) Finally, our Art Gallery debuts this 
issue, with some of the first submissions of reader-generated 
graphics. (Turn to page 54.) 

• Once again, Orson Scott Card's Creating Your Chm Games 
on the VIC and 64 transcends the genre of computer games - 
and published software. Trio Allegretto supplies machine lan- 
guage routines that you can imbed in your game program to 
play music that the program loads into BASIC strings, at any 
speed, on the VIC or 64. (Turn to page 18.) 

• They used to call it ROM burning, back when ROMs were 
programmed by burning open a fusable link. The days of burn- 
ing ROMs have vanished, along with the fusable links by which 
they were programmed; but the home user can still place his 
programs in Permanent Read Only Memory. In PROM Pro- 
gramming Made Easy, Morton the K shows 64 and VIC users 
how to do that at surprisingly low cost. (Turn to page 27.) 

• Bob Lltjret returns to Ahoyfs program pages with Lucky 
Lottery for the 64. It's as valuable a sy,stem as you'll find any- 
where for picking the winning numbers in your state lottery- 
which means, completely worthless. But youll have fun pre- 
dicting winners based on past weeks' results. (Turn to page 53.) 

• Mo\ing up to the pseudo-scientific. Bob Spirkos Script 
Analysis will allow 64 users to prepare a character profile based 
on a subject's handwriting sample. (Turn to page 17.) Bob also 
contributes Tlw Wizard of hiu a machine language game for 
the 64. While the game's format is nothing new, what Bob does 
with a familiar theme is... magic! (Turn to page 47.) 

• Printat by Simon Edgeworth simulates the cursor-control- 
ling command of the same name found in some advanced ver- 
sions of BASIC. (Turn to page 45.) 

• William V. Braun's Auto-Append will allow VIC and 64 
u.sers to merge programs instantly. (Turn to page 62.) 

• You've heard that it can be cheaper to lease a new car 
than buy one -but who can assess all the variables involved 
and make a determination? You can-with Gil Ragan's Autos: 
Leasing v. Buying for the C-64. (Turn to page 75.) 

• Have Dale Rupert and Mark Andrews got big plans for 
you this month! In the Rupert Report on Speeding Pijcels, you 
and Dale will develop a pair of assembly language routines 
that will speed up the manipulation of the 64,0(X) pixels in hi- 
res bit mapped graphics on the 64. (Turn to page 37.) in Com- 
modore Rt)ots. Mark Andrews steps you up to Wiiting and Run- 
ning an Assembly Ijcmguage Program. (Turn to page 77.) 

At this point, we'll draw an exhausted breath and let you 
discover the rest of the programs and features in the July Ahoy! 
for yourself. (Didn't we tell you we'd make you forget all about 
next month's feature on the 128?) -David Allikas 



AHOY! BULLETIN BOARD: 718-383-8909 

ir your computer is equipped with a modem, you can 
call Ahoy!\ BBS 24 hours a day. 7 days a week H) e.^i- 
changc mail with other Commodore users and diwnloati 
intbrmation on upcoiriing issues of Ahoy!, latc-brcak- 
ing Commodore news, program corrections, and more. 
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An open letter to 

the readers of Ahoy Magazine 

Vincent Kurek 

President: The Ennon Corporation 



My purpose in writing is lo ask 
you to join me in sh.sping the 
future of the new iinti most unusual 
field in computer technology today; 
Artificial Inlelligence. 

This inc redible power and 
spectacular creative potential are 
available !o you, for your computer 
right now. However, (here is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other thai through 
this ofter 

This is unfortunate but somewhat 
understandable due lo the way 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result: technology is never used to 
its fullest potential. But what's worst 
of all is that these competitve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a result, the 
infinitesimal amount of technology 
that finally trickles down to you is: 

A. So expensive you are pro- 
hibited from procurring it 

B. Shamefully inferior to the 
real thing 

remember... you can buy high-lech 
consumer goods, but never the 
technology that creates it. 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Inlelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 



t have met with little success. 
Apparently, it seems ihat immediate 
corporate profit is more imporlani 
than sharing technology with I he 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when I say AN-B3 is 
the real thing. It is a true "thinking" 
program thai receives an inilial 
"knowledge tnise" from a data file 
read when AN-8.3 is starled. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from Ihat data 
and adds it to its memory. 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates ntw 
conclusions not explicitly contained 
in its original knowledge base— just 
like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it. 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs lo say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer. 



FREE SOFTWARE 



In addition, you will be receiving 
free . Eliza— the most amazing 
conversational A.l. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You can be crealive. Experiment 
and modify to fi) your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive, easy 
to understand commands walk you 
through the source code 



step by step. It's surprisingly simple. 
Even the beginner can understand 
the "How and Why of A.l." 
A Fantastic Savings 

The real profil to Ennon 
Corporation will be your 
participatit)n in the future of 
Artificial Inlelligence. Therefore, I 
am [;lpased lo say nobody will miss 
Ihis chance because they could not 
afford it. AN-83 is priced to cover 
just a fraction of its research and 
develojjmental costs. 

The "Thinking" Program AN-BB is 
just S21..57. Whafs more, the 
astounding Eli/a is yours absolutely 
free . 

I guess it's obvious that I want 
you to participate in the future of 
Artificial Inlelligence. Forgive my 
excitement and enthusiasm but I 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer. You jusl won't believe it. 
Please take this opportunity now. 
Simply fill out your coupon below 
and mail today. Dont miss out. It's 
such ,1 wonderful future of 
discovery and excitement that 
awaits you. 

With very best of wishes, 
Vmcent Kurek 



I — I Please send me ihe 

"Thinking" Program AN-83 
for only S21.57. 
In addition, 1 will receive 
absolutely FREE Eliza— the 
most impressive 
conversational Artificial 
Intelligence program lo date. 

Avjilahle in disk unly 

For use with ihe Commodare M. 

Name 
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Zip Code 



THE ENNON CORPORATION 

1817 W. Call St., Suite B-8 

Tallahassee, PL 32304 

Canadian orders must be in U.S. dollars. 
We export to other countries. 
Commodore is a registered trademark. 
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INNOVATIVE ORGANIZERS, INC. 
For Commodore 64™ & VIC-20 



TM 




WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 

opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under (he organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now, let's examine how these organizers work. There arc 3 CRT-Models, 
CRT-] holds a Monitor or T.V. Set and a VIC 20 or 64, All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT-I . but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6AMP Fuse). 

CRT-3 same as CRT-2. but also has: SURGE & SPIKE PROTECTION built in, 
P-D I: HOLDS 1525 PRINTER & I54I DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 

CALL FOR LIST OF SOFTWARE AVAILABLE 

\ K ?ll .nul t .'iiKUmli.rL- hA jrv fMiii-iii.irk-. ■'! i I'limi.'cl.TC Hlviirmiuv. t.T-D. 



P.O. Box 108. Markleville. IN 46056 
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CRT-1 
CRT-2 
CRT-3 
P-D-1 



$17.98 
$29.97 
$37.97 
$19.48 



Optional Accessories 

SS-1 Surge & Spike 
Suppressor 

$29.95 

CF-1 Computer Fan 
$29.95 



Plus Shipping 

CALL TOLL FREE 
1-800-233-3645 Ext. 15 



u 
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COMBO DAISY WHEEL/DOT MATRIX PRINTER • ONE MEGABYTE DRIVE • 
VIC SPEECH SYNTHESIZER • FAST TAPE LOADER • GAMES FROM SSI, 

FIRST STAR, MASTERTRONIC • RUNNER'S LOG • COMPUTER MAILBOX • 
SCIENCE LAB SOFTWARE • STORYBOOK MAKERS • AUTO-REBOOTER 



PASCAL ENHANCEMENT 

Advanced Kyan Pascal, like the 
Standard version, is a full Jensen/ 
Wirth implementation, but adding 
string handling, enhanced graphics, 
chain, include file, random access 
files, full pathname for files, and 
other extensions. Featured are a full- 
screen text editor and built-in assem- 
bler. The compiler, which generates 
optimized 6502 machine code, runs 
8 times faster than Standard Pascal 
and 30 times faster than BASIC. 

Advanced Pascal is available on a 
non-copy protected diskette for 
$69,95, Standard Pascal for $49.95. 

Kyan Software, 1850 Union Street 
#183. San Francisco, CA 94123 
(phone; 415-775-2923). 

ESTIMATING SOFTWARE 

Computerized Pricing Systems' Es- 
timating Software, made available for 
over 25 micros since 1982, has been 
released in a 64, Plus/4, and 128 
compatible version. If and when 
Commodore's LCD Portable is re- 
leased, it will be made available for 
that as well. Price is $399.95; store 
owners may obtain a demo diskette 
for $19.95. 

Computerized Pricing Systems, 
3090 Oak Circle N. , Broomfield, CO 
80020 (phone: 303-469-0557). 

OKIMATES 

Okidata reports that the Okimate 
10 color printer now supports 12 
graphics packages: DOODLE!, Ko- 
ala Painter (and F^d), the Edumate 
Light Pen software. Super Sketch, 
Elexidmw, Paint Magic, Chalk Board, 
Sorcerer's Apprentice, Designer's 
Pencil, Color Me, Cadpak and Tech- 
Sketch. 



Okidata, 532 Fellowship Rd., Mt. 
Laurel, NJ 08054 (phone: 609- 
235-2600). 

AUTOMATIC REBOOTER 

Intended for bulletin boards, secur- 



The Okimate 10 
color printer is 
now compatible 
with 12 different 
graphics soft- 
ware packages. 
(See review on 
page 101 of the 
March '85 
Ahoy!) 
READER 
SERVICE 
NO. 125 



gineer units. The battle is waged in 
10 turns, from September 17-26. Price 
is $49.95. 

Computer Ambush simulates man- 
to-man combat between your ten in- 
fantrymen and a (usually) hidden en- 




ity systems, and other "constant use" 
applications for the C-64, the ABL- 
64 cartridge will reboot and run an 
essential program after a power fail- 
ure as soon as power is restored, even 
if the computer is left unattended. 
Price is $39.95. 

Input Systems. Inc., 15600 Palmet- 
to Lake Drive. Miami, FL 33157 
(phone: 305-252-1550). 

NEW GAME RELEASES 

Three for the C-64 from SSI: 
Designed for the avid strategist. 
Operation Market Garden simulates 
Montgomery's 1944 paratroop raid on 
occupied Holland. As leader of the 
largest daylight airborne and surface 
operation in history, you coordinate 
airstrikes, engage in combat, blow up 
and rebuild bridges, and initiate 
cross-river assaults with airborne/en- 



emy. An onscreen map shows build- 
ings, hedges, walls, doors, windows, 
and the location of your soldiers. 
Price: $59.95. 

Newly adapted for the 64, Cartels 
and Cutthroats puts you in charge of 
a manufacturing plant. Based on 
newswires, market summaries, profit 
and loss statements, and memos from 
department heads, you must make ex- 
ecutive decisions. Ulcer- inducers in- 
clude inflation and high interest rates, 
labor demands, and government 
intervention. Price is $39.95. 

Strategic Simulations Inc., 883 
Stierlin Road, Bldg. A-200, Moun- 
tain View, CA 94043-1983 (phone: 
415-964-1353. 

Encouraged by the success of their 
Spy Vs. Spy game, based on charac- 
ters from Mad Magazine, First Star 
will release a line of Super Powers 
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By THE\teAR 200aTHE WORLD 
MAY CATCH UP With THE WAY 

COMPUSERVE'S Electronic Mall 

DAY. 



wwRi'aiiKTTiija ii: 



Presenting the computer 
shopping service that delivers 
discount prices, name-brand 
merchandise, and in-depth 
product information. 

To make your computer even more 
useful, join CompuServe and shop in 
our Electronic Mall. Easy enough for 
beginners, it's open 24 hours a day, 
7 days a week. And it offers a wide range 
of goods and services from nationally 
known stores and businesses including 
Bloom ingdale's, Walden books, American 
Express and Commodore. 

CompuServe's Electronic Mall'" lets 
you shop at your convenience in all 
these departments: 

The Auto Shop, Book Bazaar, Finan- 
cial Mart, Leisure Center, Merchandise 



Mart Newsstand, On-line Connection, Per- 
sonal Computer Store, Record Emporium, 
Specialty fiioutique and Travel Agency. 



Take the CompuServe Electronic 
Mall 15-Minute Comparison Test. 

Whal you can do in 15 minutes 
shopping the Electronic Mall way. 

• Access descriptions of the latest in 
computer printers, for instance. 

• Pick one and enter the order 
command. 

• Check complete descriptions of 
places to stay on your next vacation. 

• Pick several and request travel 
brochures. 

• Access a department store catalog 
and pick out a wine rack, tools, 
toys... anything! 

• Place your order. 

What you can do in 15 minutes shop- 
ping the old way. 

• Round up the family and get in 
the car. 



The Electronic Mall — ^A Valuable 
Addition to the Vast World of 
CompuServe. 

CompuServe Information Services 
bring you information, entertainment, 
personal communications and more. 

You can access CompuServe with 
almost any computer and modem, 
terminal or communicating word 
processor 

To buy a CompuServe Subscription 
Kit. see your nearest computer dealer. 
To receive our informative brochure, or 
to order direct, call or write: 

CompuServe 

Information Services, P.O. Box 20212, 

5000 Arlington Centre Blvd.. Columbus, OH 43220 

800-848-8199 

In Ohio call 614-457-0602 



The Elecuonic Mall" is } seivioe of CompuServe Inc and L M. Beny & Company. 
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programs beginning in September, 
starring comic book lieroes like Su- 
perman and Wonder Woman. 

Additionally, First Star announced 
that they will release Boulder Dash 
in a combination Commodore-Atari 
disk format. 

First Star Software, 18 East 41st 
Street, New York, NY 10017 (phone: 
212-532-4666). 

Big Ben Games, Ltd. will import 
a number of British games for the 64 
and VIC at prices of $16.95 (disk) or 
$14.95 (tape). None have ever before 
been sold in the United States. The 
titles of some of the releases tell you 
why: Bizy Beezzzz. Choc a Bloc 
Charlie, Bumping Buggies, Son of 
Blagger, Cave Fighter, and Flight 




Two 50K games for $939, or KK a K. 
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Path 737. Coming is a text adventure 
based on the BBC program Tripods. 

For a free catalog, write Big Ben 
Games, Ltd., Box 875, Wilmette, IL 
60091 or call 1-800-421-5300 (ask for 
operator R37). 

British gamemaker Mastertronic 
has released Se-Kaa ofAssiah, com- 
prising two complete 50K programs. 
The gamer is required to find the Rod 
of Light, the Hammer of Vib-Ra, and 
the Casket of Vib-Ra and return them 
to their proper resting places, thus 
saving the world of the far future 
from the threat of Dark Hordes. Price 
is $9.99. 

Mastertronic International, Inc., 
407 Park Avenue South, Suite 16A, 
New York, NY 10016 (phone: 212- 
213-0166). 



Temperature 
Lab enables the 
user to choose 
between Fahren- 
heit and Celsius 
readings, to 
compare tempera- 
ture scales on the 
same screen, and 
to display data in 
either graph or 
table form. 
READER 
SERVICE 
NO. 126 



EDUCATIONAL RELEASES 

Temperature Lab is the first release 
in Hayden Software's science labor- 
atory series, designed to transform a 
home or classroom into a science re- 
search center. The program, which 
enables students to conduct experi- 
ments that illustrate classic scientific 
phenomena, includes an electronic 
thermometer that plugs into the 64, 
enabling students to record temper- 
atures and see them displayed on the 
screen. An Experimenter's Guide 
provides step-by-step instructions for 
experiments. Price: $99.95. 

Soon to follow is Light Lab, focus- 
ing on various visible light concepts 
like foot-candles, solar eclipses, and 
sunsets. 

Hayden Software Company, Inc. , 
600 Suffolk Street. Lowell, MA 
01854 (phone: 617-937-0200). 

CBS Software will adapt selected 
titles from its preschool product cate- 
gory for optional use with the Mup- 
pet Learning Keys Computer Key- 
board (see review in March '85 
Ahoy.^. 

CBS Software, One Fawcett Place, 
Greenwich, CY 06836 (phone: 203- 
622-2500). 

Basic Math Competency Skill 
Building consists of eight tutorial and 
practice programs designed for math 
students from intermediate to high 
school. Each disk is $59.95; the 8- 
diskette series is available for $325.00. 

Educational Activities, Inc., P.O. 
Box 392, Freeport, NY 11520 (phone: 
516-223^666). 

Notebook Fun teaches students to 




keep neat notes. Tests, structured as 
games, are included. Price: $19.95. 
AC3L Softvrare, P.O. Box 246, 
New Derry, PA 15671. 

STORY-WRITING SOFTWARE 

Build a Book About You allows an 
adult to incorporate the name, ad- 
dress, pet, school, and friends of a 
child into a 32-page hardcover story- 
book. Available titles are The Mys- 
tery of Scented Mountain, The Holi- 
day Dragon, Adventures on the Rid- 
dle Planet, and The Greatest Circus 
Story Ever Told (all written for chil- 
dren 2-12 years old). Each kit is 
$39.95; refill kits are $19.95. 

Scarborough Systems, Inc., 55 S. 
Broadway, Tarrytown, NY 10591 
(phone: 1-800-882-8222). 

Two additions to Woodbury Soft- 
ware's PlayWriter lineup of home- 
makeable hardcover novels, designed 
for advanced young users and adults 
(the earlier releases Tales of Me and 
Adventures in Space were recom- 
mended for children aged 7-14): 

Mystery! allows the writer to 
choose and describe his sleuth, de- 
termine method and motive of mur- 
der, and create his own cast of char- 
acters. If you want to be surprised, 
the program will pick the murderer 
for you. 

Castles & Creatures lets you con- 
struct a fantasy world replete with 
dragons, knights, princes and prin- 
cesses, and sorcerers. 

All four PlayWriter titles sell for 
$39.95 and include disk, color stick- 
ers, and full-page illustrations. 

AHOY! 9 
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Woodbury, along with Grolier 
Electronic Publishing, will sponsor 
a novel writing contest for students— 
using PlayWriter software, naturally. 
Children in the 4th grade and below 
will use Adventures in Space, 5th-6th 
grade Castles & Creatures, and 7th 
grade and up Mystery! Books will be 
judged on content, originality, gram- 




PlayWriter line spans all age groups. 
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mar, spelling, and overall effect, with 
a $1,000 prize and a home computer 
for the winner in each category. En- 
tries will be accepted from October 
15, 1985 to January 15, 1986; entry 
blanks will be distributed through 
schools and retailers. 

Woodbury Software, 127 White 
Oak Lane CN^lOOl, Old Bridge, NJ 
08857 (phone: 201-679-0200). 

SIGHT & SOUND 
ENHANCEMENTS 

Sight & Sound has added bonus 
programs to their Kawasaki Rhythm 
Rocker and Incredible Musical Key- 
board disks; 

Rhythm Rocker now contains a new 
notation system that will display ev- 
erything the user plays on the screen, 
a score printer, auto-correct, and the 
ability to change voices while play- 
ing, transpose to any of 12 keys, and 
use a multitude of specially created 
effects. Price remains at $34.95; cur- 
rent owners can upgrade for $15.00. 

Incredible Musical Keyboard now 
allows for recording songs using up 
to three voices and sports a new no- 
tation and graphics program and five 
background accompaniments. Price 
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is $39.95; upgrade is $7.00. 

Sight & Sound Music Software, 
Inc., P.O. Box 27, Dept. R2D2, New 
Berlin, WI 53151 (phone; 414- 
784-5850). 

VIC-TALKER 

Long overshadowed by that other 
Commodore computer, the VIC 20 
can now make some noise with VIC- 
Talker. Using advanced English pro- 
nunciation rules and a user-expand- 
able exception memory. Talker will 
supposedly provide unlimited vocab- 
ulary translation of text to synthesized 
speech. The cartridge will operate 
immediately upon power-up with an 
unexpanded VIC 20. The user can 
vary pitch to synthesize a singing 
voice or emphasize statements, ques- 
tions, and exclamations. 

Priced at $89.00 plus shipping and 
handling, VIC-Talker will be shipped 
within four weeks of receipt of or- 
der by Talktronics, Inc., 27341 East- 
ridge Drive, El Toro, CA 92630 
(phone: 714-768^220). 




load a disk), the Express Tape Op- 
erating System cartridge provides 
commands to recover lost or crashed 
BASIC programs. Available for 
$49.95 plus $3.00 postage (CA resi- 
dents add 6% sales tax) from B.P.E., 
22 Ethel Lane, Mill Valley, CA 94941 
(phone: 415-388-0727). 



Speech synthesizer for the VIC 20. 
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RUNNER'S LOG 

Jogger offers no training schedule 
for runners, but will enable C-64 us- 
ers to compute weekly, monthly, and 
annual statistics based on regular en- 
tries of time, mileage, and weight. 
The information is available in the 
form of tabular data on screen or 
printer, or as 23 different hi-res 
graphic plots. Price is $29.00. 

I^rsons Software, 1920 Briar Mea- 
dow, Arlington, TX 76014 (phone: 
817-465-4720). 

FAST TAPE LOADER 

In addition to allowing your data- 
cassette to load tapes eight times fast- 
er (or 20% faster than your 1541 will 




Prices slashed! Hurry in and save! 
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PRICE REDUCTIONS 

Price reductions on as.sorted C-64 
utilities: 

PractiCorp has lowered the price 
of PractiCalc 64 and PractiFile from 
$49.95 to $29.95 each, and the price 
of 64 Doctor to $19.95. 

PractiCorp International Inc. , The 
Silk Mill, 44 Oak Street, Newton 
Upper Falls, MA 02164 (phone: 617- 
965-9870). 

International Tri Micro has lowered 
the price of The Write File, Your 
Home Office, and Plus Graph to 
$29.95 each. 

International Tri Micro, 14072 
Stratton Way, Santa Ana, CA 92705 
(phone: 714-832-6707). 

BETTER WORKING 

The first title in Spinnaker's Bet- 
ter Working line of productivity soft- 
ware for the 64, announced several 
months back, has finally come avail- 
able. Spreadsheet ($49.95) combines 
a full-featured spreadsheet with the 
basic text entry, editing, and word 
wrap capabilities of a word proces- 
sor and the sort and search capabili- 
ties of a database. Slated for late sum- 
mer release are File & Report 




VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package You can distribute tree RUN- 
TIME version without paying royalties' 
mm 0-916439-26-7 $59.95 

BASIC COMPILER 64 - compiles the 

complete BASIC language into either fast 6510 

machine language and/or compact speedcode Get 

your programs into high gear and protect them by 

compiling 

ISBN# 0-916439-17-8 $39.95 

MASTER-64 - professional development 
pacitage for serious applications. Indexed file 
system, full screen management, programmers 
aid. BASIC extensions. 100 commands 
IS8N# 0-916439-21-6 $39.95 

PASCAL-64 • full Pascal with extensions for 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines. 
ISBN# 0-916439-10-0 $39.95 



ADA TRAINING COURSE - teaches 
you the language of (he future Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler, 120 + 
page guide 
ISBN/If 0-916439-15-1 $59.95 

FORTH-64 - loaded with hires graphics, com- 
plete synthesizer control, lull screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 S39.95 

C LANGUAGE COMPILER - a full C 
language compiler Conforms to the Kernighan & 
Ritchie standard, but without bit fields. Package in- 
cludes editor, compiler and linker 
ISBN# 0-916439-283 S79.95 

ASSEMBLER MONITOR-64 - a 

macro assembler and extended monitor package- 
Assembler supports floating point constants 
f\Aonitor supports bank switching, quick trace, single 
step, more 
mm 0-916439-11-9 S39.95 



XREF-64 - indispensible tool (or BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 
mm 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE • WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today for tlie name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4,00 
($8.00 foreign) per order. Money order and 
cfiecks in U.S. dollars only. f*/lastercard, 
VISA and American Express accepted. 
Michigan residents Ml If ll^^M' 

inci 40/0 sales tax. S^ j-«-J[^ 



FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 



You Can Count On 
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($49.95), a combined database and 
report generator; and Word Proces- 
sor, featuring a spelling checker. All 
three programs will integrate. 

Better Working, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

BOOK RELEASES 

Two from Howard W. Sams & Co. : 

The Commodore Plus/4 Book 
($16.95) compares the Plus/4 to other 
machines, provides an overview of its 
features, accessories, and software, 
and discusses its compatibility with 
C-64 peripherals. Also included are 
database and keyboard tutorials, an 
introduction to BASIC 3.5, and a 
chapter on system setup. 

The Commodore 16 User's Manual 
($12.95) helps new to intermediate 
users become familiar enough with 
BASIC 3.5 to work successfully with 
numbers, produce simple graphics, 
design color and music, and calcu- 
late mathematical equations. 

Howard W. Sams & Co. , Inc. 4300 
W. 62nd St., Indianapolis, IN 46268 
(phone: 317-298-5400). 



NEW 



FOR 
COMMODORE 
64 / 128 , 




▼T 



M£ 

NFORMATION 
ANA6EMENT 
YSTEM 



[»fTEGRATED HOME DATA MANAGER with WINDOWS^ 

ON SCREEN CALCULATQfij *nd CALEMDAR. 

HDPC CHEQCBOOK M«intain« Multiple accounts 

tar quick and «a«v Analyaiv. 

Htir« ADDR£BSeoOK up to 200 record* o* 

■Alt lug cljit« Mith mearch end label options. 

HOME INVEHTDRV providem valuable property 

ir\*orm*tior> recall and analyais. 



AWAILABtE ON DISK OWLV. . . 
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CHECX/nWCV ORDER *■ *2.DO SHIPPING. 
rCH VORK RESIDENTS ADD SALES TAX. 

m QSQSOFTWARE 
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The World According to Roho the 
Robot (S12.95) introduces the read- 
er to robotics, covering MEGO, the 
computer language of robots, the ro- 
bot's brain, hardware chpis used, and 
a brief discussion of LISP, LOGO, 
and FORTH. 

Hayden Book Company, 10 Mul- 
holland Drive, Hasbrouck Heights, 
NJ 07604 (phone: 201-393-6306). 




Covers BASIC 3.5, graphics, more. 
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Tile Guidebook for Winning Aiven- 
turers ($9.95) provides answers to 
questions on various levels for such 
games as Zork l-lll. Enchanter, and 
Infidel, plus information on how ad- 
venture games are programmed. 
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Software, features, accessories, etc. 
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Baen Books, 8 West 36th St., New 
York, NY 10018 (phone: 212- 
947-8244). 

Sound and Graphics for the Com- 
modore 64 ($14.95) takes the reader 
step by step through composing and 
playing melodies and sound effects, 
drawing cartoons, and then combin- 
ing the sound and graphics. 

John Wiley & Sons, Inc., 605 
Third Ave., New York. NY 10158 
(phone: 212-850-6000). 

FINANCIAL PARTNER 

Home users and businesses that 
write under 150 checks a month can 
use Financial Partner to keep track 
of income and expenses. The pro- 
gram wilt print checks, address la- 
bels and envelopes, and prepare and 
print a list of financial transactions, 
ledger accounts, income statements, 
and balance sheets. It will also pre- 
pare records for tax returns. Price is 
$74.95. 

Practical Programs, Inc. . P.O. Box 
93104, 625 N, Milwaukee St., Mil- 
waukee. WI 53203 (phone: 414- 
278-0829). 




The SG-IOC is Commodore-compatible. 
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A STAR IS REBORN 

Star Micron ics' forthcoming SG- 
lOC printer is an SG-10 (see review 
in May '85 Ahoy.^ with a built-in 
Commodore interface, making it in- 
stantly compatible with the C-64, 
VIC 20, and C-128. Price will be 
$299.00. 

Star Micronics, Inc., 200 Park 
Avenue, New \brk, NY 10166 (phone: 
212-986-6770). 
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Micro Mail is the first dedicated and powerful mailing list designed exclusively for your Commo- 
dore 64. It's completely menu driven and loaded with prompts. Some say you don't need instructions, but we 
included them anyway "Micro Mail" will add, delete, edit, search, display, print, and sort all your records in 
a matter of seconds. If you have a need to store and retrieve information, don't be without "Micro Mail." 

"Micro Checkbook" is bound to be the standard for other programs to live up to. Like "Micro 
Mail." it is dedicated and very powerful. It's completely menu driven and very user friendly "Micro Checkbook" 
will add. delete, edit, search, display, print, and sort all records in a matter of seconds as well as store all tax 
information and balance your statement every month. If your checkbook is a problem (and whose isn't?), "Micro 
Checkbook" is your permanent cure. 

Available Soon: Micro Calendar. Micro Inventory, Star Trivia and Post Time. 
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TELECOM NEWS 

CompuServe subscribers who are 
members of Commodore user groups 
may now have unlimited access to the 
electronic edition of the Academic 
American Encyclopedia for S34.95 a 
year, or 30% off the regular price of 
$49.95 (connect charges extra). 

Grolier Electronic Publishing, Inc., 
Dept. NH, 95 Madison Ave., New 
York, NY 10016 (phone: 212- 
696-9750). 




Signalman Error-Free: detects errors. 
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Two new products from Anchor 
Automation; 

Designed for small businesses and 
individuals who want to utilize their 
microcomputers for mailing services, 
the Signalman Computer Mailbox 




Signalman Mailbox: stores messages. 
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($299) will receive and store incom- 
ing messages whether or not the us- 
er's computer is online, and provide 
remote access and message pickup 
with multilevel password protection. 
Memory is 64K. 
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Installed between modem and 
computer '{or dumb terminal), the 
Signalman Error-Free ($199) detects 
and controls errors in asynchronous 
data communication. 

Anchor Automation, Inc., 6913 
Valjean Ave.. Van Nuys, CA 91406 
(phone: 818-997-7758). 

CompuTrav, a directory of discount 
travel and vacations offered by a na- 
tionwide network of airlines, hotels, 
car rental agencies, and the like, of- 
fers discounts of up to 60 % off regu- 
lar prices. Charges are $1 per month 
plus 20c per minute connect time. 

CompuTrav. 622 Broadway, New 
York, NY 10012. 

The North American Online Di- 
rectory 1985 lists 1511 machine-read- 
able databases alphabetically, by 13 
subject areas, and by 13 services of- 
fered. Price is $75.00. 

R.R. Bowker Company. P.O. Box 
ISCf?. Ann Arbor, MI 48106 (phone: 
1-800-521-8110). 

Georgia OnLine, purportedly the 
nations first regional information ser- 
vice, will provide Atlanta area users 
with information about the local com- 
munity and services such as electron- 
ic mail and home shopping. 

Georgia OnLine, Suite 720. Two 
Piedmont Center. Atlanta, GA 30305 
(phone: 404-233-1915). 

TWO INTERFACES 

Compatible with all Commodore 
computers that use the Commodore 
type serial bus, the Printmaster/-I-G 
parallel interface ($119.95) allows ftill 
emulation of a 1525 or 801 printer, 
including full graphics and graphics 
characters. Advanced capabilities in- 
clude the ability to display a disk di- 
rectory without erasing a BASIC pro- 
gram, or a complete printer interface 
status. Available is a 16K buffer 
(S89.95) which provides faster graph- 
ics printing, renumbering and old 
utilities, and more features. 

Omnitronix. P.O. Box 43, Mercer 
Island. WA 98040 (phone: 206- 
236-2983). 

The Apricord CD ($69.95) will 
also allow a host of printers to pro- 
duce all Commodore graphics char- 
acters. Utilizing a single-chip 65C02- 
compatible microprocessor that has 




Printmaster/+G emulates 1525/801. 
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a wider instruction set than the C-64 
itself, it is reportedly the only paral- 
lel interface available that can be pro- 
grammed in 65C02 code (a "super- 
set" of C-64 assembly code). 

Apricorn, 7050 Convoy Ct., San 
Diego, CA 92111 (phone: 619- 
569-9483). 




Apricord CD: programmable in 65C02. 
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FORMULAS SOFTWARE 

A program for calculating formu- 
las commonly used in electronics (in- 
cluding Ohm's law, passive compo- 
nents, reactance, and others) is avail- 
able for $10.00 from Jack Morrow, 
7421 NW. 5th Terrace, Oklahoma 
City, OK 73127 (phone: 405- 
495-5071 before 1 p.m.). 

ONE MEGABYTE DRIVE 

Commodore's SFD (Super Fast 
Drive) 1001 will have a one megabyte 
storage capability on a double-sided, 
double-density format. A utility disk 
with 64 and 8032 utilities will be in- 
cluded. The drive, contained in a case 
identical to the I54rs, will retail for 
$399.95. 

Progressive Peripherals & Soft- 
ware, who will distribute the SFD for 
Commodore, will also manufacture 
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SFD-1001 can store IM on disk. 
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Easy-Link, a serial to IEEE connec- 
tor necessary to link the C-64 to the 
drive and other IEEE-488 devices. 
The unit, which will include its own 
power supply, will sell for $99.95. 
Progressive Peripherals & Soft- 
ware, 2186 South Holly, Suite 200, 
Denver, CO 80222 (phone: 303- 
759-5713). 

TWIN BROTHER 

$300 is a lot to pay for a prtnthead. 
But that's what you're doing if you 
start out with a dot matrix printer and 



Brother HR-10: tractor, 2K buffer. 
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of a document. 

Speed is 36 characters per second 
in daisy wheel mode, 140-160 cps us- 
ing the nine pin dot matrix printhead. 
Included are a 3K buffer (expandable 
to 11 or 19K), and choice of six bit 
image densities. 

Also new from Brother is the HR- 
10 daisy wheel printer with bidirec- 
tional printing, 2K buffer, and tractor 
feeder. Price is $349. 

Brother International Corporation, 
8 Corporate Place. Piscataway, NJ 
08854 (phone: 201-981-0300). 




Twinriter 5: combination dot matrix and daisy wheel. 
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later add a cheap daisy wheel -be- 
cause the printhead is the only real 
difference. It's always seemed ironic 
to us, in light of the miracle of the 
home computer, that no one can 
make a dual-purpose printer. 

While the $1295 Twinriter 5 from 
Brother is intended for the small of- 
fice environment, it is the first print- 
er to feature combination daisy wheel 
and dot matrix printheads. Mode can 
be switched by pushbutton or soft- 
ware commands, even in the middle 



NEXT 

MONTH: 

Scuttlebutt 

provides 

pre-release 

information 

on many 
Commodore- 
compatible 
products that 
will debut at 
June's Con- 
sumer Elec- 
tronics Show. 



DUAL DISK CATALOGUER 

Masterdual, like the previously 
released Masterdisk, is a disk cata- 
loguer with disk repair utilities. The 
difference is that Masterdual is de- 
signed for 4040-format dual disk 
drives (such as the MSD SD-2). 

The price of $29.95 includes a 
quick- reference translation card for 
equivalent hex, ASCII, binary, and 
decimal values. 

Integrated-Software Systems, P.O. 
Box 1801, Ames, lA 50010 (phone: 
515-233-2992). 

25 PROGRAMS ON DISK 

The Commodore 64 Programmer's 
Library includes over 25 utility, 
home management, and game pro- 
grams on disk, with two additional 
disks supplying documentation and 
a utility for printing your own copies. 
Price is $25 postpaid in US and 
Canada; foreign orders $35 via in- 
ternational money order. 

Baker Enterprises, 15 Windsor 
Drive, Atco, NJ 08004. 



VIDEOGAMING 

COLLECTOR'S 

ITEMS 

Collecto Inc. has acquired the re- 
maining copies of the fourteen 
rarest issues of Videogaming and 
Computergominq lllusfrafed. As 
reference tools they are invalua- 
ble, and they contain some of the 
best interviews in the history of 



dazzling original artwork that 
will knock your socks off. All four- 
teen issues for only $15.95 (in- 
cluding postage and handling); 
outside the U.S. add $6.00. 

COLLECTO INC. 

P.O. BOX 1019 

BRYN MAWR, PA 19010 
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Because DSKDU (May '85) was written on a VIC 20, 
with its eight extra characters per hne, line 2220 was 
too long to enter on the 64. C-64 users can amend this 
problem as follows: 

2220 BY=P+L*4+C/2:HX=CAND1:H1$(0)=HX$(D% 
(BY)/16):H1$(1)=HX$(D%(BY)AND15) 

2221 C1=INT(C*1.5) 

In the first installment of Commodore Roots (April 
'85), on page 52, it is stated that in hexadecimal, the 
letters A-F represent the decimal numbers 11-16 respec- 
tively. That should be 10-15. Thanks to Michael R. 
Whitner of Toledo, Ohio for alerting us to the error. 

On page 35 of the May '85 issue, the phone number 
of Epyx is listed incorrectly. The correct number is 
408-745-0700. 

The Font Factory, described on page 7 of our June '85 
issue, is available from Micro-W. Distributing, Inc., 
1342B Rte. 23, Butler, NJ 07405 (phone: 201-838-9027). 

We apologize for any inconvenience caused by the 
above errors. Remember that mistakes in Ahoy! pro- 
grams and articles are posted on our bulletin board 
(718-383-8909) as soon as they are spotted. 




CARTRIDGE-MAKER-64' 

Create your own COMMODORE-64 Video game and program cartridges! 




Easy Menu-Driven instructions allow you to: 

n Copy your BASIC or ASSEMBLER D Erase and reuse cartridge 

programs to cartridge n Create Autostart cartridges without the 

D Copy from cartridge to cartridge need to be skilled in machine language. 

D Copy your cartridge to diskette or cassette 



CARTRiDGE-MAKER-64 $129.00 

CARTRIDGE-ERASER $59.00 

CARTRIDGE-64 (1 6K) $25.00 

CARTRIDGE-MAKER SYSTEM $1 89.00 

Includes CARTRIDGE-MAKER-64, CARTRIDGE-ERASER, 
and 1 Blank CARTRIDGE-64 (16K each) 

Purchase of 5 Blank 

CARTRIDGE-64's (16K each).. $115.00 

SHIPPING;S3 00 {If CO D . add S2 00 PA residenis add 6% sales lax) 

VISA-MASTERCARD-C D -CHECK 

DEALER & DISTRIBUTOR INQUIRIES INVITED 




Also Available Irom CPG: 

6502 Single Board Computer $389.00 

5 Volt Switching Power Supply 79 00 

8K EPROM's (2764) 5.50 

16K EPROM's (271 28) S9.95 

EPROM sockets 0.50 

CARTRIDGE-64 Bare Boards 1 2.00 

Cartridge Cases 3.00 

Cartridge Board with Case 1 4 00 

6-position DIP Switch 2,00 

ASYNC-CARTRIDGE-84 (ACIA) 59 95 

ASYNC-WEDGE-64 (Software) 1 9 95 

ADD-A-SOUND-64 29 95 

Real-Time Calendar/Clock 79 95 

Software (or COMlvlODORE-64 Call or wrile for prices 
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Custom Programming Group, Inc. 

47-2A Marchwood Road • Exton, PA 19341 
(215) 363-8840 
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I'Wr] t's happened to all of us at one time or another. 

B We see someone at a distance and although we 

I cannot make out his features, we recognize him 
l-^^l by his walk or his gestures. His body language dis- 
closes his personality. The hand, a part of the body, also 
reveals a person's character, but it has a singular differ- 
ence-it leaves a tracing of its movement on paper. This 
tracing can be analyzed to determine personality, the sci- 
ence of which is called handwriting analysis, or graph- 
ology. A detailed analysis can take several hours to pre- 
pare, but a general analysis can be made simply and eas- 
ily using Script Analysis. More impxartant, you don't have 
to know a thing about handwriting analysis to use it. 

The program will not analyze handwriting, but it will 
interpret your observations. Don't worry if you don't know 
what to look for. The program is rife with instructions 
and examples. Fve made extensive use of character graph- 
ics to guide you along. All you do is answer the ques- 
tions and the computer will do the rest. 

While the analysis is general and less accurate than 
an indepth analysis done by a professional graphologist, 
it will provide you with a personality description of any 
sample of handwriting that you care to use. It was not 
feasible to incorporate the hundreds of characteristics that 
can be interpreted, so I chose a few dozen for their ease 
of recognition and general acceptance in graphology 
(opinions vary widely on some interpretation;;). 

In the program, each handwriting characteristic is at- 
tributed words that describe personality traits. The pro- 
gram has a vocabulary of 74 words ranging from aes- 
thetic to unreliable. The program compiles all the words 
or traits that appear in the script, but in the analysis it 
only lists those that appear more than once. Contradic- 
tions may turn up, but this does not necessarily mean 
the analysis is wrong. It is. for instance, possible to be 
both careful and careless, A person may be meticulous 
about writing a program while at the same time he allows 
his working space to degenerate into disarray! 

The sample of handwriting should follow a few rules. 
For one thing, it must be written on a blank piece of pa- 
per: no guidelines may be used. Letter-sized paper is 
preferred. As for the implement, ball-point pen or pen- 
cil is best since pressure cannot be interpreted from a 
felt-tip pen. Probably the best .samples to analyze are from 
letters, since they are usually written spontaneously. 

With your sample on hand, run the program. You'll 



first be asked for the filename. Next you'll be asked if 
it is a new file or if it is to be LOADcd. If you press 
N you'll then be asked if the sample was written by a 
lefthanded or righthanded person. Answer this and you'll 
be given the first of fifteen categories, slant. Follow the 
instructions and then choose the appropriate handwrit- 
ing characteristic. You'll go through each category this 
way. Once you've completed all of them, you'll be given 
a list of the handwriting characteristics that you chose, 
followed by two lists of personality traits. Dominant Traits 
are traits that have appeared tliree or more times, whereas 
Other Traits have occurred only twice. From there you 
have the option of sending the file to printer, disk, or 
tape; or you can elect to begin another analysis. D 

SEE PROGRAM LISTING ON PAGE 102 



WORD RUNNER 

Word Processing System by N-Systems 

Perfect for the first-time user — 

• No printer or page set-up required for standard format. Just enter 
a file name and start typing. 

• All editing is done in "normal" text entry mode. No special 
insert or edit modes. 

• Single-keystroke commands— no complicated command syntan. 

• Fast, efficient machine language operation. 

For the advanced user too — 

• Move up to six thousand characters of text at one time— even 
between documents. 

• Full screen editing. 

• Global Search— Search and Replace. 

• Built-in commands for italic, underline, bold-face, double width, 
superscript and subscript. 

• Automatic page numbering. 

• Display each page on the screen and alit before printing, or print 
entire document in continuous stream 

• Document length may be up to entire disk. 

AND-WORD RUNNER costs ONLY $44.95! 

To order WORD RUNNER, send check or money order lo! 
N-Systems • P.O. Box 160 • Steger, IL 60475 

(Illinois residents add sales tax) 
WORD RUNNER is available for Commodore-64 on disk only and wiU 
work with Epson, Gemini, Okidata, and Commodore printers. 
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iflacnine tnngtiage routines 

that let your VIC or 64 

play three-rpart harmonies 

at any speed. 
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When you sit down at the piano, you don't 
have to be an expert musician. You hit a 
key and music comes out. If you hit too 
I many keys, and you don't know what 

you're doing, you can turn it into noise pretty quickly. 
But the problem then is that you can make sounds too 
easily; you have to practice to get your own fingers un- 
der control. 

That's because the piano is designed to do one thing 
and do it well. It translates the pressure of your fingers 
on the keys into strokes of a hammer against carefully 
tuned strings. All you have to do is figure out which keys 
to press. 

"Oh, is that all, Mr. Card? Then you'll love to sit right 
down and plE^' this little Chopin Nocturne. And when 
you've done that, Tve got a Debussy, a Satie, and a charm- 
ing little Mozart piece you'll be glad to diddle out for us." 

No, Tm not saying it's easy. I'm just saying it's a heck 
of a lot easier than if you had to hold five or six hammers 
and hit the strings yourself! 

Now, the VIC and Commodore 64 are not as conveni- 
ently designed as a piano. For one thing, the keyboard 
is designed with alphabetics, not harmonics, in mind. 
For another, the BASIC language completely ignores mu- 
sic in both computers— you have to use machine language 
or POKEs to produce the sounds. Even more limiting 
is the feet that you can never have more than three mu- 
sical notes playing at the same time in either machine. 

So you'll be delighted to know that this issue of Ahoy! 
includes machine language routines that you can embed 
in your own programs to play music that your program 
loads into BASIC strings. Mind you, unless you want 
to play nothing but the three songs I've included here as 
examples, you're going to have to do some calculating, 
and to make it work with your own program you'll have 
to do some programming, too. But these routines will 
allow you to play music as fast as you want to -too fast 
to hear, in feet— and using all three voices on either com- 
puter. 



THE SHAPE OF THE SOUND 

Even more important is the fact that both programs 
^ let you design the shape of the sound. This was fairly 
§1 easy on the 64, since the SID chip was designed to al- 
1 1^ low sound "shaping;" it was much trickier on the VIC, 
I and the results were far less effective, because the com- 
" puter wasn't designed with sound shapes in mind. 
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Before you can effectively use these routines, though, 
you need to know something about sound. 

The sound produced by a musical instrument does not 
have the same volume all the way through the note. For 
instance, a gong begins very loudly and then slowly fades 
away; a bowed violin begins much less sharply, but sus- 
tains its tone fairly loudly while it is still being played. 
A piano sound begins sharply, fades off rapidly to a low- 
er sustain level, until the key or die pedal is released; 
then the note continues to "ring" until it fades to nothing. 

The way that the volume varies during the sounding 
of the note is called the "sound envelope," The speed at 
which the sound rises from silence to the loudest volume 
is the "attack." The speed at which die sound Uien falls 
off after the attack is called the "decay." The volume that 
the sound stays at as long as the note is held is called 
the "sustain," And the speed at which the sound drops 
back to silence after the note stops being played is called 
the "release." 

Notice diat attack, decay, and release are all speeds - 
how fast die volume changes from soft to loud or loud 
to soft. Sustain is a volume control. The initial attack 
always takes the note to the maximum volume; the sustain 
is the fraction of that volume that the note has during 
the time it is held. 

DOING ENVELOPES ON THE 64 

A computer doesn't have to fiiss with sound envelopes. 
You can simply switch on the note and it will continue 
to play that note until you switch it off. However, this 
makes for boring, mechanical sounding music. 

So the designers of the Commodore 64 put the sound 
envelope entirely within your control. Each of the three 
musical voices has a separately controlled sound envel- 
ope, so that you can have the illusion of three different 
musical instruments playing at once. 

Each of the three voices has four four-bit envelopje con- 
trol registers. Each four-bit register controls one of the 
envelope parameters - attack, decay, sustain, or release. 
Since four bits can hold any number from to 15, the 
attack, decay, sustain, and release are all expressed as 
numbers from to 15. 

In the case of attack, decay, and release, the number 
represents speed: is the fastest, and 15 the slowest. In 
the case of sustain, the number represents volume: is 
silence, and 15 is maximum volume. 

These four four-bit registers use up a total of 16 bits. 
Since they are read from ordinary eight-bit memory lo- 
cations, those 16 bits are carried in only two memory 
locations for each voice. The first byte of each pair con- 
trols attack and decay; the second byte controls sustain 
and release. For voice 1, the registers are at locations 
54277 and 54278; for voice 2, 54284 and 54285; for voice 
3, 54291 and 54292. 

If you POKE (or, in machine language, STA) these 
values into those locations, you have to change them a 
bit. Let's say you have a fairly sharp attack of 2, a gentle 
decay of 7, a low sustain of 5, and a slow release of 14, 
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DISK DRIVES 

CommodoTe 1541 .... Call Phonemark Datasette . $29 

Commodore 1571/72 . . Call Epyx Fast Load $27 
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Commodore 1702/ 1902. Call Teknika MJ22 (RGB) . $249 
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PRINTERS 
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and you want this envelope to be played by voice 1. first, 
you multiply the attack by 16 (16*2=32) and then add 
it or OR it (in ML, ORA it) with the decay value of 7. 
The resulting number, 39, is POKEd (or STAed) into lo- 
cation 54277. Then you multiply the sustain by 16 
(16*5=80) and add it or OR it with the release value of 
14. The resulting number, 94, is POKEd (or STAed) into 
location 54278. 

Once that envelope is set for voice 1, every new note 
that you "gate" on -POKE 54276, (PEEK(54276) AND 
254)OR 1— will use that same attack, decay, and sustain, 
and will keep playing the note at the sustain volume un- 
til you -gate" it off- POKE 54276, PEEK(54276)AND 254. 

The 64 sound program, Song Maker, does all the cal- 
culating for you. All you have to do is set the individual 
attack, decay, sustain, and release values for each of the 
three voices in lines 9010, 9020, 9030, and 9040. AK%( ) 
is set to the attack for each voice; DY%( ) is set to the 
decay for each voice; and so on. 

FAKING IT ON THE VIC 

The VIC does not have separate envelope controls for 
the three sound generators, so the machine language rou- 
tine has to fake the effect by changing the volume con- 
trol at location 36879. Because all three voices are con- 
trolled by the same volume instruction, the three voices 
all have to have the same envelope. This does not mean, 
however, that they will sound the same. This is because 
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each of the three voices has a different waveform, or tone 
quality (see below). 

The VIC Music program has two sound routines. The 
BASIC statements from line 9010 to 9039 put the sound 
envelope routine in memory locations 663 to 767. The 
machine language commands contained in lines 9011, 
9016, and 9025 contain subroutines that execute delays 
for varying lengths of time, ranging from milliseconds 
to the duration of an individual note. 

The rest of the machine language routine executes as 
follows: 

Line 9030: this subroutine is used constantly to set the 
volume register to the desired level. It reads the old val- 
ue at location 36878, ANDs it with 240 to wipe out the 
old volume level, ORAs it with the current volume (which 
is maintained by another routine in location 150), and 
STAs it at 36878. 



(If you aren't familiar with how this is done in machine language, 
here is a detailed explanation of each number in the routine: 

173 is the command LDA (absolute), which means "pick up into 
the accumulator whatever number is found at the memory location 
described in the next two byies." 

14 is the low byte of the address of the memory location. 

144 is the high byte, or page number, of the address. To find the 
decimal equivalent, you would use 144*156 +14, which is 36878. 
To go the other direction, from 36878 to low byte (LB), high byte 
(HB) form, you would use HB =lNT(36878/256): LB =36878- 
(256*HB). 

41 is the machine language command AND (immediate), which 
means "perform a bitwise AND operation between the number now 
in the accumulator and the number that immediately follows this 
instruction." 

240 is the next number. It is ANDed with the number now in 
the accumulator, which we picked up a moment ago from location 
36878. (This operation has the effect of zeroing out the volume-con- 
trol bits, without disturbing the four bits at that location that have 
nothing to do with sound.) The result of this AND operation is put 
back in the accumulator. 

5 is the command ORA (zero page), which means "perform a 
bitwise OR operation between the number now in the accumulator 
and the number found at the zero-page location described by the 
next byte." 

150 is the address of the location where other routines store the 
number that they want used for the volume. Since the command 
5 specified that this would be a zero- page address, the high byte 
of the address is assumed to Ik and doesn't have to be stated. (This 
operation has the effect of combining the new volume value with 
the unchanged high byte of the original number at location 36878.) 
The result of this ORA operation is put back in the accumulator 

141 is the command STA (absolute), meaning "take the number 
in the accumulator and store it at the memory location specified 
by the next two t^tes." it's the reverse of the LDA (absolute) command. 

14 is the low byte again. 

144 is, again, the high byte of address 36878. 

96 is the command RTS, which means "return from this subrou- 
tine." The computer immediately jumps back to the next instruc- 
tion after the JSR (address) instruction that invoked this subroutine 
in the first place. 

For obvious reasons, we won't go into this kind of detail with the 
rest of the machine language routines included here.) 



Line 9035: gradually bring the volume from to 15, 
pausing between each increment of the volume for the 
amount of time specified by the attack value at location 
659 (low t^te 147, high byte 2). 
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Line 9036: pause for a moment at peak volume. 

Line 9037: gradually bring the volume down from 15 
to the sustain value specified at location 661, pausing be- 
tween each decrement of the volume for the amount of 
time specified by the decay value at location 660. 

Line 9038: wait for the amount of time specified by 
the duration value stored at zero-page location 149 (an- 
other routine puts this number here), combined with the 
basic tempo set at location 170. 

Line 9039: gradually bring the volume down from the 
sustain value to 0, pausing between each decrement of 
the volume for the amount of time specified by the re- 
lease value at location 662. The volume is now zero, the 
note is finished, so return from diis routine to the pro- 
gram that called it. 

This is perhaps more detail than you wanted, but it 
does show you how a sound envelope is created. None 
of this is necessary in the 64, because the SID chip does 
all this automatically (and, I might add, much more 
smoothly and effectively); furthermore, the volume of 
all the notes is changed at once. 

THE QUALITY OF THE TONE 

The quality of a sustained note comes from the shape 
of the sound wave. The ringing tone of a gong comes 
fix)m a very different sound wave than the blare of a trum- 
pet, and a violin makes an altogether different tone. Note 



that this is not related to the sound envelope. A piano 
string, for instance, produces the same sound wave if it 
is plucked or if it is hainmered, since the identical string 
is vibrating— but the sound envelope, the way the sound 
volume happens, is very different. 

The 64 lets you choose one of three different musical 
waveforms for each voice. This waveform is selected by 
turning on bits at the control register (voice 1, location 
54276; voice 2. 54283; voice 3, 54290). Remember that 
bit of this location is the gate control -if bit is a 1, 
the sound begins; if it is 0, the sound is released. 

Bits I through 3 control sophisticated modifications 
of the tone quality that I won't attempt to explain here. 
(I've alvrays found it somewhat harder to explain to other 
people things 1 don't understand myself.) 

Bit 4 selects the triangle waveform. (Add 16 to the gate 
number. ) 

Bit 5 selects the sawtooth waveform. (Add 32 to the 
gate number) 

Bit 6 selects the pulse waveform. (Add 64 to the gate 
number.) 

Bit 7 selects the random noise waveform, (Add 128 
to the gate number. This is not used to produce melody 
or harmony.) 

Now, I could spend a long time trying to tell you what 
the different waveforms sound like, but the truth is you'll 
only know what they sound like by trying them yourself. 
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Back in June of 1983, Kelvin Lacy 
had a dream. He dreamed of creating 
one integrated program that would 
include a spreadsheet, business 
graphics and a database. A program 
with the power of Lotus 12-3. On the 
Commodore 64. People laughed! He 
had just finished OmniWriter, to be 
marketed by HESWARE. Ignoring the 
skeptical, he started on VIZASTAR. 

Now, after 15 months, his dream has 
come true. VIZASTAR has a full- 
featured spreadsheet, as good as 
Multiplan. But much faster— faster 
than many spreadsheets on the IBM 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS in memory. It is menu- 
driven, using the latest techniques in 
user-friendliness. It is compatible with 
virtually all printers and word 
processors. Up to 9 windows can be 
open simultaneously, anywhere. 
Remarkably, lOK of memory is 
available for spreadsheet use. 



The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layoul on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest. 

Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3D "skyscraper" graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly. This integration is the 
key lo VIZASTAR's power— the first 
and only program of this kind on the 
C-64. All commands can be 
automated, so you can "program" 
your own applications and run them 
with one keystroke. 




Actual screen dump prinled by VIZASTAR 

VIZASTAR includes a cartridge, a 1541 
diskette with a backup, reference and 
tutorial manuals. VIZASTAR is ONLY 
$119.97. We arc so positive you will be 
delighted with VIZASTAR that we offer a 
ISdaymoney-back guarantee. Try it risk- 
free! Compare VIZASTAR with any other 
spreadsheet or database, 

So order today. Call or send a check or 
Money Order. Calif, residents add 6.5% 
sales lax. MC/VISA accepted. 
Add P&H: UPS-$3; COD, Canada-$6 
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Trademarks Lotus 1-2 3 Lotus Dcvclopdwnl Cpmrnodofe^ 
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1125 E. Hillsdale Blvd., Suite 104 
Foster City, CA 94404-1609 
(415)341-5606 
Dealer Inquiries Welcome ' 
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In the 64 program, just change the values at line 9070 
to select the waveform for each voice. You can combine 
the waveforms -that is, add both 32 and 64 or 16 and 
32 or all three -but the result is less than thrilling. 

However, you must choose at least one of the wave- 
forms, or no sound will be produced. So the number you 
POKE in to gate the sound on will be waveform + 1; 
to gate the sound off, you can POKE a simple or POKE 
in waveform + 0. 

The pulse waveform is even more complicated than 
the others, because it can have different widths, which 
are controlled by the two memory locations just before 
the gate/ waveform control register for each voice. The 
first of these bytes can use a value from to 255; the 
second byte from to 15. 

WAVEFORM AND PITCH ON THE VIC 

The VIC also allows you to choose different waveforms, 
but only by choosing the particular voice that has that 
waveform. When you choose to play voice 1, at 36874, 
you automatically get a low sawtooth waveform. Voice 
2, at 36875, has a medium pulse waveform. Voice 3, at 
36876, has a higher pulse waveform. 

You use these registers to select the pitch -and to turn 
the voice on and off. The pitch is a value from to 127. 
The pitches are exactly one octave different from voice 
to voice. That is, if you POKE the value 67 into register 
36874, it will produce a C; if you POKE 67 into loca- 
tion 36875, it will also produce a C, but it will be an 
octave higher; a 67 stored in location 36876 will pro- 
duce a C an octave higher still. 



Whatever pitch you choose must be added to 128 to 
produce the actual sound, since 128 activates the on-off 
switch in each register. So to play that C in any of the 
three voices, you have to POKE register, pitch + 128. 

The pitches are as follows: 



7 
15 
19 


67 
71 
73 


97 112 C (B-sharp) 
99 IB D-fiat (C-sharp) 
100 D 


23 
31 
35 
39 
47 


75 
79 
81 
84 
87 


101 
103 

104 
105 
107 


E-flat (D-sharp) 
E (F-flat) 
F (E-sharp) 
G-flat (F-sharp) 
G 


51 
55 


89 
91 


108 
109 


A-flat (G-sharp) 
A 


59 
63 


93 
95 


110 
111 


B-flat (A-sharp) 
B (C-flat) 



To play each note, add it to 128 and POKE it into the 
register of your choice. To turn off the note, POKE a 
into the same register. 

HOW TO PUT MELODIES INTO THE 64 

The program Song Maker uses exactly the same sys- 
tem of entering melodies in last month's program. To re- 
view briefly, the music is entered in strings starting at 
line 9500. The MD$( ) string contains the duration of 
each note of the phrase, expressed as a number from 
to 9. (You can determine the actual length of each dura- 
tion value at lines 9100-9105.) 

The ME$( ) string contains the pitches for each note 



Make Your Home Secure and Energywise 

. . . with Genesis Home Control Products 

At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 io make your home safer and more energy efficient while increasing your personal convenience. 

The Genesis VIController allows you to control up to 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control schedules. 

Your system can be expanded by adding Genesis' COI\^sense input device, Super _ 

Schedule Plus software, and available sensors. Commands can |SI^- .,, ,.■...■,:., ..v.;.i;;-k1kv^ 
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COMsense and COMclock 
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the Super Schedule Plus softvifare sells tor $19.95. All four products are available together in our HOME CONTROL 

PACKAGE for only $199.95. 

Call 215-861-0850 to order direct or contact your local dealer. 
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in the phrase, expressed as alphabetic characters from 
A to G. These correspond exactly to the notes of the musi- 
cal scale. To "sharp" a note, press SHIFT and the de- 
sired letter (C-sharp is SHIFT-C); to "flat" a note, press 
COMMODORE and the desired letter (B-flat is 
COMMODORE-B). To silence the voice (a musical rest 
or tacet), enter the @ symbol. 

The MV${ ) string selects which octave the note should 
be played in. It is a value from to 6. You only need 
to enter a number when the octave changes; as long as 
the melody is in the same octave, just enter a space. All 
the strings for the same phrase must be exactly the same 
length. 

The program Summertime shows all the lines that need 
to be changed to enter a different melody. Once you have 
typed in and saved Song Maker, delete all the lines be- 
tween 9500 and 9890 and then type in all the lines shown 
with Summertime. The program will now play a differ- 
ent melody with different waveforms and envelopes. With 
this song, all three voices play the same pitch every time, 
but with different waveforms and envelopes; the com- 
bination can be surprisingly effective. 

The Song Maker program's chief value is that it trans- 
lates standard musical notes to the numeric form the 64 
can use. However, it is very time-consuming during the 
setup. The program provides three ways for you to get 
the pitch value to use directly in the program that you're 
creating. 
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First, the program will display each note's duration and 
pitch values on the screen, if you select the P option (press 
N to stop it from printing each note). 

Second, the program will save the entire song on disk 
in the file you name in line 200. Third, the program will 
rewrite itself if you select the MAKE DATA option. Make 
sure, however, that you have already SAVEd a version 
of the program with your new melody on it, because the 
MAKE DATA option destroys all the lines in which you 
entered the melody using musical notes, 

VITAL NOTE: no matter what else you do with this 
program, the variable F$ must be the very first variable 
assigned in your program. This is because the machine 
language routine takes the current note information di- 
rectly from the very first variable in the variable table, 
which must be a string, and must contain the pitches of 
the notes for all three voices in order. 

HOW TO PUT MELODIES INTO THE VIC 

To use the program VIC Music, you can't use musical 
notation; you'll have to calculate the pitches yourself, us- 
ing the table printed above. Your routine for entering the 
melody should be placed at line 9100. The variable SL 
must be set to the total number of notes in the melody. 
Then you must assign the duration of each note to the 
string MD$ and the pitches for each voice to the strings 
MIS, M2$, and M3$. 

VITAL NOTE: it is absolutely essential that MDS, Ml$, 
M2$, and M3$ be the first four variables mentioned in 
your program, in that order, because the machine lan- 
guage routine reads those string variables from the start 
of the variable table. Also, all four strings must contain 
exactly the same number of characters. 

Notice that the melody included with this program as- 
signs all the notes exactly the same duration. It could 
just as easily have read all the durations from a DATA 
statement, just as it now reads all the pitches. Also, no- 
tice that only M3S is assigned its pitches from the DATA 
statements. M2$ and MiS are then set to be the same 
as M3$. (Since M3$ has the highest voice, it will prob- 
ably be most useful as the melody.) 

Any pitch value from to 127 will cause a note to be 
played, since it will be added to 128. If you want a note 
to be a rest or tacet, put it in the DATA statement as 128 
or greater, since line 9110 converts any DATA value above 
127 to 0, which shuts off the sound of that voice until 
the next note. 

Half the fun, however, will come from your own ex- 
periments. Enter your own melodies and change the en- 
velopes to see what happens. 

(Note: If you program performs any cassette, disk, or 
RS232 operations after the sound routines are set up, they 
will have to be set up again, since the ML routines will 
be wiped out.) 

That's enough for this month. Next month we'll finish 
with sound by playing around with sound effects for the 
VIC and 64. Then we can get back to something we can 
see. D SEE PROGRAM LISTINGS ON PAGE 90 




ost of us are well aware 
of the two types of 
memory inside our 
computers. We can 
hardly miss the signif- 
icance of random-ac- 
cess memory (RAM), as the term is 
a prime selling point for most manu- 
facturers. The C-64 has 64 kilobytes 
of the stuff, which is used for the 
temporary storage of programs and 
data. The VIC 20 comes with only 
five kilobytes of RAM, with provi- 
sions for adding up to 35 kilobytes 
externally. Actually, both the C-64 
and the VIC 20 have an additional 
1,024 nibbles of RAM (a nibble is 
four bits, or half a byte) which is used 
for the screen color map. In the C-64, 
these nibbles share the address space 
at $D800-$DBFF (55296-56319) 
with the character ROM and the sys- 
tem RAM. 

Read-only memory (ROM) is not 
as well known to most users, since 
it piays a much smaller part in most 
promotional literature. Yet it is the 
programs in this permanent storage 
which give the computer its built-in 
personality. Both the VIC 20 and the 
C-64 are equipped with 20 kilobytes 
of ROM. The machine langu^e pro- 
grams which make up BASIC 2.0 and 
the operating system require 16 kilo- 
bytes of ROM. The remaining four 
kilobytes store the patterns for the 
Commodore character set. Without 
this permanent storage, the compu- 
ter would be about as useful as a 
doorstop when first turned on. 

Early users of microcomputers 
were not nearly as fortunate. In those 
bygone days of yesteryear (the early 
TO's) the personal computer had to be 
initially programmed by hand via a 
series of switches. This would usual- 
ly allow for the loading of several 
hundred bytes of additional code, 
usually stored on a punched paper 
tape. This had to be done every time 
the computer was turned on. By the 
mid TO's things had improved some- 
what. ROMs storing as much as 256 
bytes had dropped in price to the 
point where a serious hobbyist could 
afford them. There was even talk of 
one kilobyte chips. As we shall short- 
ly see, we have come a long way. 



PFIOM 

PROGRAMMING 

MADE EASY 



A Guide to Permanent 
Program Storage in 
Read Only Memory 



By Morton Kevelson 



PROGRAMMING 
YOUR OWN 

Several types of ROM are present- 
ly available. The kind that come in 
the VIC 20 and the C-64 are the 
mask programmable variety. These 
are used because of their extremely 
low cost (pennies per chip) in mass 
production quantities. For small users 
or hobbyists they are of little inter- 
est, as the initial setup costs are very 
high. The most popular type for indi- 
vidual users are the erasable pro- 
gramable read-only memories 
(EPROMs). These have always been 
considered essential tools by serious 
computer hobbyists. 

The Commodore PET series of 
computers were even equipped with 
several empty chip sockets for the ex- 
press purpose of installing addition- 
al ROM. In feet, these machines were 
not intended to have more than 32 
kilobytes of RAM. Some quirks in 
the VIC 20 and C-64 operating sys- 
tem are relics from these forerunner 
machines. A notable example is the 
inability to perform a memory dump 
to tape from addresses above $7FFF 
(32767). 



The designs of the VIC 20 and the 
C-64 have placed less emphasis on 
personalized PROM programming. 
This is in spite of the fact that both 
machines have provisions for consid- 
erable software on plug-in ROM car- 
tridges. Nevertheless, supporting 
products for PROM programming 
have always been available for both 
computers. Those so inclined can 
readily avail themselves of this fas- 
cinating and useful technology. The 
state of the art is such that we feel 
at the very least every user group 
should consider acquiring the hard- 
ware for the convenience of their 
members. 

Burning a ROM once referred to 
the process of placing a program into 
permanent memory. ROMs are no 
longer burned. This term is a hold- 
over from the early days when some 
varieties of memory were pro- 
grammed by literally burning open 
selected fusable links. This crude 
process has been replaced ly the 
floating-gate avalanche-injection me- 
tal-oxide semiconductor transistor 
(FAMOS). These are specially fabri- 
cated field-effect transistors which 
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have the ability to store a minute elec- 
trical charge. In the discharged state 
the transistor looks like an open 
switch. This represents a binary one. 
When the charge has been placed, the 
switch is effectively closed to repre- 
sent a binary zero. An EPROM chip 
is actually an organized conglomer- 
ation of these devices on a tiny bit 
of silicon. 

HOW THEY WORK 

A factory fresh PROM is com- 
pletely discharged. In this state all the 
bits contain a one. If you were to ex- 
amine an unprogrammed PROM you 
would find that each byte contains the 
value of $FF (256). The program- 
ming process consists of three steps. 
First, the proper address is selected. 
Second, the information to be stored 
is placed on the data lines. Finally, 
a high programming voltage (usual- 
ly 24 volts) is placed on the program- 
ming pin. This voltage has to be very 
carefully controlled. If it is applied 
for too long, damage to the chip may 
result. If it is applied for not long 
enough, insufficient charge will be 
deposited and the stored information 
will be unstable. 

EPROMs have one other charac- 
teristic which makes them so desir- 
able as a development tool . Once the 
data has been properly programmed 
it is quite permanent, with a storage 
lifetime of many years. However, un- 
der the proper conditions, the data 
can be removed and the EPROM may 
be reused. In fact, with proper hand- 
ling, there is no limitation on the 
number of times this cycle may be re- 
peated. The EPROM is erased by il- 
luminating the cells with ultraviolet 
light of a particular wavelength (2537 
angstroms to be exact). A quartz win- 
dow is thoughtfully provided on the 
chip package for this very purpose. 

A PROM programmer is a special- 
ized device designed to generate the 
necessary addresses, data, and pro- 
gramming voltages. A properly de- 
signed programmer will include 
enough built-in flexibility to handle 
a variety of EPROM types. 

THE EPROM FLAVORS 

EPROMs come in a variety of con- 
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figurations. The most popular now- 
adays are the 2700 series, where the 
memory cells are arranged in an ar- 
ray which is eight bits or one byte 
wide (that is, addressing a single lo- 
cation returns a full byte of data) . In 
contrast, the RAM chips in the C-64 
are set up as a single bit per address. 
It takes eight chips in parallel to make 
up a single byte. 

Memory chip capacities are spe- 
cified in bits, not bytes. Thus, to ob- 
tain the chip's byte capacity, you have 
to divide by eight. The last two dig- 
its of the chip number represent the 
chip capacity in kilobits. For exam- 
ple, a 2764 contains 65,536 bits of 
storage capacity organized as eight 
kilobytes. Incidentally, the 2764 hap- 
pens to be the most popular PROM 
chip for hobbyists as of this writing. 
It offers the lowest cost per bit among 
the available chip sizes. It also hap- 
pens to be the capacity of the ROM 
chips used by the VIC 20, the C-64, 
and the 1541 disk drive for their op- 
erating systems. The 27128 is not far 
behind in a direct cost comparison. 
Its desirability hinges on placing 16 
kilobytes of storage in a single soc- 
ket. The 27256 (32 kilobytes) is also 
reasonably priced if you need the ca- 
pacity. The 27512 (64 kilobyte) holds 
a whopping half a million bits of data. 
As of this writing, it is still priced be- 
yond most hobbyists at several hun- 
dred dollars. However, we are all 
aware that prices in the semicon- 
ductor industry tend to drop rapidly 
as time goes on. 

The user should also be aware of 
the number of pins required for the 
different chips. The ROMs in the 
VIC 20 and the C-64 are in a 24-pin 
package. All the chips mentioned 
above come in a 28-pin package. The 
manufacturers have made the pin lay- 
outs very similar, so that an adapter 
can be easily constructed. A 24-pin 
variety of the eight kilobyte EPROM 
is available. The model MCM68764 
from Motorola fills the bill it a price 
which is currently five to six times 
as high as the 28-pin 2764. 

When shopping for chips, keep in 
mind the other factors that affect 
price. These are primarily speed and 
power consumption. Given the slow 



clock speed of the C-64, the former 
is generally not a problem. Unless 
you plan on assembling some large 
memory arrays, the power consump- 
tion is not significant either. 

ADDING MEMORY 
TO THE C-64 

The Commodore 64 was specifi- 
cally designed to allow for consider- 
able memory expansion. This may 
seem a bit odd in light of the multi- 
ple memory layers which already fill 
parts of the computer's memory space. 
Nevertheless, every time a cartridge 
is plugged into the expansion port, 
memory is added to the computer. 

For most game cartridges, this 
memory amounts to another eight or 
sixteen kilobytes of program on ROM . 
Generally, these cartridges are not 
true memory expansions. What ac- 
tually occurs is a replacement of in- 
ternal RAM and ROM by what is 
contained in the external cartridge. 
Most cartridges utilize only a small 
portion of the existing RAM. Thus 
a game cartridge can best be consid- 
ered as turning the C-64 into a dedi- 
cated game machine while it is in 
place. 

Some cartridges add to the C-64 
memory resources. The Super Ex- 
pander cartridge from Commodore 
contains eight kilobytes of ROM. 
When it's installed, the BASIC of the 
C-64 is enhanced by a set of graph- 
ics and sound commands. At the 
same time, eight kilobytes of BASIC 
RAM is hidden under the external 
ROM reducing available program 
space. The Super Expander cartridge 
does not waste this hidden RAM . It 
is utilized for the bit mapped graph- 
ics associated with the added BASIC 
commands. 

Perhaps the most ambitious expan- 
sion of C-64 memory to date in a fin- 
ished product is implemented by the 
Comal 2.0 cartridge. This contains 
the latest version of the Comal lan- 
guage on 64 kilobytes of ROM, As 
if this was not enough, an empty soc- 
ket is provided on the board for an 
additional chip with a capacity for up 
to another 32 kilobytes. 

The all-time prize for user expan- 
sion goes to the Jason-Ranheim Com- 



pany, who make an eight-socket 
board which can accommodate up to 
256 kilobytes of external ROM. 
Memory expansion need not be re- 
stricted to ROM. Additional RAM 
can be added to the expansion port. 
This is just the approach taken l^ the 
R. J. Brdchman Co. with their CBUS 
11 cartridge. We will be looking at 
both products later in this article. 

HOW n IS DONE 

The designers of the Commodore 
64 provided for all this expansion by 
building considerable flexibility into 
the cartridge port. To actually see 
how this is done, we will have to dig 
a little deeper. There are two primary 
devices which control the memory 
configuration of the C-64. 

The first is a six-line I/O port built 
into the 6510 microprocessor. The in- 
ternal hardware of the 6510 places this 
port at memory address 1. Its associa- 
ted direction control register is loca- 
ted at address 0. 

The second device is a custom de- 
signed integrated circuit, the Pro- 
gramabie Logic Array (PLA). This 
chip is a collection of electronic 
switches (as are all logic devices) de- 
signed for the express task of man- 
aging the memory configuration re- 
quirements of the C-64. Internally it 
is responsible for the sharing of mem- 
ory between the 6510 and the 6567 
VIC II chip. Externally it is the con- 
trol device for the expansion port. 

The expansion port can best be de- 
scribed as a full microprocessor bus. 
It brings to the outside world the en- 
tire set of eight data lines and sixteen 
address lines of the 6510. In addition, 
there are several control lines which 
are associate d with the PLA. Two of 
these li nes, EXROM (pin 9) and 
GAME (pin 8), are hardware inputs 
to the PLA. These are normally held 
to a logical one represented by -1-5 
volLs in the C-64. The horizontal line 
over their labels indicates that their 
intented logical function is imple- 
mented when they are set to a logical 
zero or volts in the C-64. 

When a cartridge is plugged into 
the expansion port, one or both of 
these lines are grounded. This caus- 
es some of the internal memory of 



the C-64 to be replaced by whatever 
is in the cartridge. The affected mem- 
ory areas are the eight kilobytes of 
RAM from $8000 to $9FFF (32768 
to 40959). The eight kilobytes of 
BASIC ROM from $A000 to $BFFF 
(40960 to 49151) and the eight 
kilobytes of KERNAL ROM from 
SEOOO to SFFFF (57344 to 65535). 
These lines work in conjunction with 
two output lines at the port, ROML 
(pin 11) and ROMH (pin B). The for- 
mer addresses in the eight kilobyte 
$8000 block, while the latter controls 
either the $A000 or the SEOOO block. 
The effect of all four of these lines 
can be further modified by the 6510 
I/O control port at address 1. This 
can be used to switch between ROM 
(either internal or external) and the 
built-in RAM that occupies the same 
address space. Some cartridges ex- 
ert direct control of the hardware 
memory configuration by placing 
electronic switches at the EXROM 
and GAME lines. These "soft switch- 
es" are accessed by selecting a par- 
ticular address for their control. Ad- 
ditional RAM or ROM can be 
switched in or out, usually in eight 
kilobyte banks, by installing addition- 
al control logic on the cartridge. This 
is the technique used by the Comal 
cartridge mentioned above. 

SOME PROM 
APPLICATIONS 

Most of us are familiar with the 
dozens of games and applications 
programs available in cartridge forms. 
The C-64 and VIC 20 offer other 
possibilities for custom ROMs. These 
range from changing the character 
set to direct modifications to BASIC 
and the operating system. The default 
language could even be changed. 
How about a C-64 that understands 
FORTH or PASCAL? Think of all the 
possible applications for dedicated 
autostart programs. This would allow 
the computer to be used as an unat- 
tended control device without the 
need for a disk drive or cassette deck. 
The list is endless. The three reviews 
that appear on the succeeding pages 
present some interesting products 
which offer some unique ideas of 
their own. D 



THE PROMENADE 
PROM DEVELOPMENT 
SYSTEM 



Jason-Ranheim 



580 Parrott Street 



San Jose, CA 95112 
Phone: 800-421-7731 
(in CA 800-421-7748) 



According to Webster's New World 
Dictionary, to "promenade" is to "go 
for a walk." According to the Jason- 




The Promenade inside and out. The 
4x 5" package installs in user port. 



4 



Top: the PCC-8 board; bottom left: 
the PCC-4; bottom right: the PCC-2. 




Adaptor that converts a 2S-pin 2764 to 
24-pin format compatible with 64 & VIC 

Ranheim Company, the Promenade 
model CI is the heart of a ROM pro- 
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niustralcd mur ofihe 134!I Anificial 
intelligence! Synapses Ihor Woioscn- 
ko inWrviewed! And ready k^ enter: 
Music Maker Pan II! Screen Manip- 
' ukiion! Night Aiuick! Relative Files! 



ISSUE #1-JAN. '84 $4.00 

64 V. the Ptanull Telecommunications! 
Talcs of the Commndorc! Anil reudy 
to enter: Muiti Draw M Graphics. Sys- 
tem! Imcrrupl Music Maker/Eiiilor! A 
Peck at Memory! Sequential Files! 



ISSUE #3-MAR. '84 $4.00 

Anatomy of the 64! Printer interfac- 
ing for VIC & 64! Educalionul -soft- 
ware series begins! And ready to en- 
ter: Address B(X)k! Space Lanes! Ran- 
dom Files on the 64! Dynamic Power! 



ISSUE #4-APR. '84 $4.00 

Pelspccd and Easy Script tutorials! 
Printer interfacing continues! Laser- 
disc! And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! Livw- 
er case descenders on the 1525 printer! 



Sorry.. .Issues H^, #2, and #7 

sold out! Reprint editions 

(programs and feature 

articles only) 
available for S4.00 eacli. 



ISSUE #7- JULY '84 UJOO 

MSD dual disk drive! Database buyer's 
guide! Training your cursor! Screen 
displays! File Sleuth! Users Groups! 
And ready to enter: Rcnusjihcring! 
Checklist! Math Defender! Brisk! 



ISSUE #8-AUG. '84 $4.00 

Choosing a word prtK'essor! Compu- 
lalional wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter: Micro-Minder! Direc- 
tory Assistance! The Terrible Twins! 



ISSUE #5 -MAY '84 $4.00 

Future of Commodore! Inside BASIC 
storage! .Memory management on the 
VIC & 64! Guide to spreadsheets! And 
ready to enter: Math Master! Air As- 
sault! Biorhythms! VIC Calculator! 



ISSUE #6 -JUNE '84 KOO 

Game programming column begins! 
Prognini generators! Rupert on input- 
ting! Memory management continues! 
And ready to enter: Post Time for the 
64 & VIC! Alpincr! Sound Concept! 



ISSUE jM>-SEPT. '84 $4.00 

Program your ow'n text adventure! 
Build a C-64 cassette interface! Vid- 
eo RAM! And ready to enter: Salvage 
Diver! DOS! Sound Explorer! The 
Castle of Darkness! Base Conversions! 



ISSUE #I0-OCT. '84 $4.00 

C-64 graphics programs! Bit-mapped 
graphics! Joystick programming! And 
ready to enter: VIC 40 Column Op- 
erating System! BAM Read & Print! 
Emerald Elephant! Lawn Job! 



ISSUE m-NOV. '84 $4.00 

Music programs & keyboards for the 
64! Graphics feature continues! And 
ready to enter: PTE word processor! 
Block Editor! Alternate Character Set 
lor the 64! The Tunnel of Toniachon! 



untU you have a ^^jP^torials ff " ^^^p^Jgrarns, hun- 1 
"'■ Ml Our articles ana^ keyboard, .our pr"y ^^jm 

below 1 



ISSUE #12 -DEC '84 KOO 

Buyers guide to printers! 1525 printer 
tutorial! Custom characters! User 
Guide to KMMM Pascal! Diving into 
BASIC! And ready to enter: Construc- 
tion Co.! Space Patrol! Cross Ref 



ISSUE #0-JAN. '85 UM 

VlC/64 OS exposed! Sprites! 1541 de- 
vice # disconnect switch! Ghostbuster^! 
And ready to enter: Ultra Mail! Music 
Tutor! Alice in Adventureland! Mid- 
print! To the Top! Tape/Disk Transfer! 



ISSUE #14 -FEB. '85 $4.00 

Printer interfacing! Multicolor sprites! 
Mtxiems! Bulletin boards! Theory of 
game design! And ready to enter: Fu- 
turew-ar! Fontasia! VIC Eraser! Insur- 
ance Agent! Flunkspeed! Telelink 64! 



ISSUE #15 -MAR. '85 $4.00 

Making multiscreen gameboards! In- 
side the Plus/4! Commodore DOS! 
And ready to enter: Old Routine! Pro- 
grammable Function.s! Automatic Line 
Nos,! HonK Budget! Salmon Run! 



ISSUE #I6-APR. '85 $4M 

Assembly language column begins! 
Programming the joystick! 1541 disk 
drive alternatives! And ready to enter: 
Hop Around! Fa.ster 64! Bootcr! Ele- 
check! BASIC Trace! Space Hunt! 



ISSUE #17- MAY '85 $4JM) 

Disk drive enhancements! Install a re- 
set switch! Assembler escapades! And 
ready to enter: Super Dupcr! Two-Col- 
umn Directory! DSKDU! Raid! DOS 
Plus! Font Editor! Tile Time! 



ISSUE #18-JUNE '85 $4.00 

Music & graphics entry systems! How 
modems work! Inside the 6510! And 
ready to enter: Quad-print! Mapping 
4.4! Towers of Hanoi! Speedy! Duck 
Shoot! The 6510 Simulator! 



Use coupon or facsimile. If or- 
dering more than three issues, 
list choices on separate sheet. 

if you have a modem and want 
more complete information on 
any of the back issues listed, 
zaWAhoyfz Bulletin Board Ser- 
vice at 718-383-8909. 
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gramming system for use with the 
Commodore 64 or the VIC 20. 
Stand-alone ROM programmers are 
relatively expensive items. Much of 
the expense resides in supplementary 
hardware requirements. These in- 
clude memory for data and control 
program storage, a controlling micro- 
processor, and of course a power sup- 
ply. The Promenade utilizes the ex- 
isting facilities of the computer to cre- 
ate a very effective ROM program- 
ming environment. The capabilities 
of a Promenade with a C-64 or a VIC 
20 and a 1541 disk drive actually ex- 
ceed those of more expensive dedi- 
cated units. That includes the cost of 
the computer and disk drive. 

VIC 20 users take note. The Prom- 
enade system will function properly 
without any memory expansion. 
However, programming ROMs which 
exceed the memory capacity of the 
unexpanded VIC 20 will be some- 
what inconvenient. A minimum of 
eight kilobytes of expansion RAM is 
recommended. 

THE HARDWARE 

The Promenade itself is a slim 4 '/2 
X 5" package in a brushed aluminum 
case. In use, it is installed in the com- 
puter's user port. The top surface of 
the Promenade is dominated by the 
28-pin zero insertion force (ZIF) dual 
in line package (DIP) socket flanked 
by green, red, and yellow indicating 
lights. These light emitting diodes 
serve to indicate the status of the sys- 
tem at all times. The first (green) 
simply displays the presence of pow- 
er to the Promenade. The second 
(red) indicates when the ZIF socket 
is energized, such as during a ROM 
read operation. It also serves as a 
warning not to insert or remove a 
PROM when it is lit. The third (yel- 
low) alerts the user to a ROM pro- 
gramming activity. It also flashes 
when some kind of programming er- 
ror takes place. 

THE OPERATING 
SYSTEM 

The PROMOS software, supplied 
on either cassene or disk, makes 
the reading and programming of 
PROMs a snap. PROMOS is de- 
signed to let the user work with a 



PROM in a fashion which is very 
similar to using the cassette or disk 
drive. In fact, PROMOS assigns de- 
vice number 16 to the Promenade. 
When activated, PROMOS behaves 
very much like a DOS wedge. It 
makes full use of the computer's op- 
erating system. Programs can be 
LOADed and SAVEd. Files can be 
OPENed and CLOSEd. Data can be 
written with the PRINTS and CMD 
commands and retrieved via the 
GET* and INPUTS commands. 
There is even a directory command, 
the dollar sign ($), which returns the 
contents of the ROM. 

PROMOS reserves part of the 
ROM space tor the directory infor- 
mation. Unlike the disk drive, the 
PROMOS directory is spread out 
through the ROM with the associated 
files. A series of links, similar to 
BASIC'S internal line links, keeps 
track of each file's relative position. 
Complete details of the PROMOS file 
structure are included in the twenty- 
page manual. 

The PROMOS file-oriented oper- 
ation requires the presence of the 
Promenade to function. This limits 
the capacity of the PROM filer to 
what can be stored in a single chip. 
The Promenade can handle chips 
with a capacity of up to 512 kilobits 
(64 kilobytes). As mentioned earli- 
er, chips with this capacity are still 
quite expensive. Thus most users will 
limit themselves to eight or sixteen 
kilobytes of online storage. A useful 
enhancement to PROMOS would ex- 
tend this file-structured operation to 
the PCC-2, -4, and -8 expansion 
boards discussed below. This en- 
hancement would allow for the crea- 
tion of a ROM disk with up to a quar- 
ter megabyte capacity. 

PROMOS also includes two direct 
memory commands, the Greek letter 
pi and the British pound symbol. 
These allow for the direct bidirection- 
al transfer of data between the com- 
puter's memory and the PROM. The 
command syntax is very similar to 
that used by most machine language 
monitors. PROMOS has been de- 
signed to be highly compatible with 
most machine language monitors. 
The commands will generally work 
from within a monitor, although an 



occasional question mark indicating 
a monitor syntax error does appear. 
The solution is usually just to reis- 
sue the command. The manual rec- 
ommends Hesmon for use with 
PROMOS. A cartridge-based version 
which includes PROMOS and a DOS 
wedge is available for S24.95. We 
found that PROMOS seemed to work 
well with Micromon, a very power- 
ful public domain machine language 
monitor. 

The Promenade has enough built- 
in flexibility to handle a large vari- 
ety of EPROMs of varying capacides 
and types. PROMOS accepts two par- 
ameters which allow the system to 
distinguish among the various types 
of EPROMs. The "control word" 
number tells the operating system 
which type of EPROM is being used. 
The manual lists 23 PROM types, to 
which the 27512 has recently been 
added. This includes the 48016P, 
which is an electrically erasable de- 
vice (EEPROM) for which PROMOS 
includes a special erase command. 

The second parameter lets 
PROMOS optimize the programming 
operation. The Program Method 
Word (PMW) selects from four 
methods of PROM programming. 
One is based on the chip manufac- 
turers' recommendations. The other 
three are "intelligent" methods which 
optimize programming time. The 
method developed by Jason-Ranheim 
uses a series of increasingly longer 
pulses till the data has been verified. 
Thus for an eight kilobyte ROM, 
which would normally take seven 
minutes using the standard method, 
we found programming times as short 
as 30 seconds with the Jason- 
Ranheim method. 

PROMOS was kept as brief as pos- 
sible to minimize its memory re- 
quirements. The code is ftilly relocat- 
able by simply changing the top-of- 
memory vector before RUNning it. 
This brevity does leave the program 
open to operating problems. Under 
some conditions it is possible to crash 
the program while all of the Prom- 
enade lights are still on. If a PROM 
is in the socket, damage to the chip 
might result. A hardware protect 
switch to disable the socket could be 
a useful addition. 
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OTHER SUPPOFTT 
PRODUCTS 

Jason- Ranheim offers several cir- 
cuit boards for installation in the 
computer expansion port. A VIC 20 
board (PVC-2) and a C-64 board 
(PCC-2) priced at $6.95 each support 
up to two eight- kilobyte ROMs. For 
the VIC 20, any one of the four eight- 
kilobyte expansion blocks can be 
used. The C-64 board uses the two 
eight- kilobyte blocks located at $8000 
to SBFFF. Instructions are provided 
on how to store a BASIC program in 
ROM which will autostart when the 
computer is turned on. Two program 
listings are provided, one which 
RUNs the program from cartridge 
memory and the other which down- 
loads the program to the usual BASIC 
memory space before RUNning. 

Also available are two additional 
bank switching circuit boards. The 
PCC4 ($19.95) will accommodate up 
to four ROMs with either an eight-, 
sixteen-, or thirty-two kilobyte capa- 
city for a total of 128 kilobytes of add- 
on memory. This memory will ap- 
pear in eight-kilobyte bank switched 
chunks at the S8000 block. The bank 
select register can be located at ei- 
ther $DFFF (57343) or $DEFF 
(57087). Any eight-kilobyte bank or 
none at all can be switched in or out. 
The PCC-8 (S29.95) is similar, ex- 
cept eight sockets are provided for up 
to 256 kilobytes of external ROM. 
Complete instructions are included, 
along with a DOWNLOAD/RUN pro- 
gram for installing up to 38 kilobytes 
of program with an autoboot routine 
in ROM. 

Before you go running off with vi- 
sions of putting all your favorite ap- 
plications in nearly instantaneously 
bootable form, keep several things in 
mind. Most commercial software is 
copy protected and in machine code. 
It will require a fairly knowledgeable 
user and some time to extract the pro- 
grams and put them into the proper 
format for use with this method. So 
if you have the programming capa- 
bility this presents an excellent way 
to get your favorite word processor, 
spreadsheet, and database all online 
at one time. 

No PROM programming system 
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would be complete without some 
means of erasing a previously pro- 
grammed PROM. Jason-Ranheim 
does not make an ultraviolet eraser 
of their own, but they will supply 
"hobbyist" and "industrial" versions 
of these devices for $34,95 and 
$79.95 respectively. 

CONCLUSIONS 

The Promenade is a good general 
purpose PROM programming sys- 
tem. Some unique support products 
make it very attractive to the mod- 
erately advanced user. The built-in 
hardware and software flexibility, 
coupled with .some excellent techni- 
cal support, make it a good choice 
for turning the C-64 or VIC 20 into 
a PROM development system. 

The Promenade is available for 
$99.95 with the supporting software 
on tape or disk, D 

ADDENDUM 

Jason-Ranheim is continuously 
coming up with new uses for the 
Promenade, As we went to press we 
received word of a new four-socket 
expander board (PRB-4) similar to 
the PCC-4. The PRB-4 is designed 
to accommodate two eight-kilobyte 
PROMs and two eight-kilol^te RAM 
chips. An onboard battery backup al- 
lows the RAM to retain data after the 
C-64 has been turned off. According 
to John Ranheim, president of the 
company, the PRB^ is being used as 
an aid for educating the homebound 
handicapped. An examination is pro- 
grammed into the PROMs. The stu- 
dent's answers are stored in the 
RAM . The battery backup retains the 
data for subsequent grading under 
computer control. Price is $24,95. 

CBUS I & II: 

THE CARTRIDGE BACKUP SYSTEM 



r 



R.J. Brachman Associates 

RO, Box 1077 

Havertown. PA 19083 
Orders 1-800-CBUS-C64 
info 215-622-5495 



The CBUS (Cartridge BackUp 
System) is a product which will un- 
doubtedly evoke considerable contro- 



versy It is marketed with the primary 
intent of allowing a user to copy and 
use the software which is stored in 
the ROM chips of a Commodore 64 
program cartridge. This attitude, 
while probably reflective of good 
marketing sense, is somewhat unfor- 
tunate. As we shall see, the CBUS 
package does have a valid purpose in 
the C-64 scheme of things. 

THE HARDWARE 

CBUS is primarily a hardware ac- 
cessory. The total system consists of 
two parts available separately or as 
a package. 

The CBUS I is essentially a sin- 
gle slot expansion port extender 
board. This in itself is unremarkable. 
What makes the CBUS I unique is 
the inclusion of an eight position DIP 
SAvitch, There is also a reset push but- 
ton which does come in handy at 
times (see the May '85 Ahoy! for 
more on reset buttons). The DIP 
switches intercept the four cartridge 
control lines which were described 
in the introduction to these reviews. 
By properly manipulating these 
switches, the particular configuration 
of nearly any 16 kilobyte cartridge 
can be determined. Once this is 
known, the cartridge contents can be 
downloaded to disk. This can easily 
be done with a machine language 
monitor or with the custom program 
listed in the manual. 

Once on disk the cartridge can be 
dispensed with. The program can be 
then loaded into the C-64's resident 
RAM and RUN from there— well, al- 
most. As it turns out, very few car- 
tridge-based programs are directly 
amenable to this sort of treatment. 
For various reasons, most cartridge 
software will require some modifica- 
tions to RUN in this fashion. Since 
these programs are nearly always 
written in machine language, this task 
is not for the uninitiated. A select 
number of cartridges cannot be so 
converted, as they utilize the under- 
lying RAM which shares their pro- 
gram space. 

This is where CBUS II comes into 
the picture. Although it physically re- 
sembles the typical cartridge which 
it is intended to replace, internally 
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there is a world of difference. In place 
of the expected ROM, the CBUS II 
contains sixteen kilobytes of static 
RAM, To complete the picture, the 
CBUS II contains a hardware "per- 
sonality latch" which allows the RAM 
to emulate any of seven possible 16- 
kilobyte cartridge configurations 
which are available for the C-64. 

To complete the picture, a program 
listing is included with the documen- 
tation which will LOAD in a car- 
tridge "snapshot" and configure the 
personality latch accordingly. Once 
loaded, the cartridge program can be 
started by locking the latch with the 
RUN/SET switch and then hitting the 
cartridge reset button. 

THE DOCUMENTATION 

Each of the CBUS modules come 
with its own instruction manual. The 
CBUS I manual provides a thorough 
description of the various cartridge 
configurations. Included are complete 
instructions on how to identify a car- 
tridge with the CBUS I. Two brief 
programs are listed which allow you 
to create a menu-driven disk-loaded 
version of all your cartridges. The 
manual also includes a detailed 
breakdown of all the possible C-64 
memory maps and how they are crea- 
ted. This is one of the most compre- 
hensive discussions we have come 
across on the subject. The interaction 
between the 6510 internal control port 
located at memory addresses and 
I and the hardware control lines is 
meticulously detailed. 

The description in the CBUS II 
manual is limited to the basic oper- 
ation of the CBUS II cartridge as a 
cartridge emulator. It includes a pro- 
gram listing especially suited to the 
unique hardware of the cartridge. 
Both manuals include source code 
listings of the machine language por- 
tions tor reference purposes. For ad- 
vanced users, a fiill description of the 
CBUS II operation is included in the 
optional Technical Manual, along 
with a brief discussion on using the 
CBUS II as a cartridge program de- 
velopment tool. 

Several pamphlets were included 
with the package. These appear in a 
newsletter format. They deal with the 



specific nuances of particular car- 
tridges for working with the CBUS 
system. One pamphlet lists the CBUS 
classifications for 75 commercially 
available C-64 cartridge programs. 

The entire package is intended to 
let the average user copy and run car- 
tridge-based software. The CBUS I 
and II manuals include detailed pro- 
cedures on the proper use of their re- 
spective hardware and software. 

As we went through the manuals, 
one area for improvement became 
evident. The largest manual was a bit 
over twenty pages. There was con- 
siderable amount of duplication of in- 
formation across all three manuals. 
A significant percentage of each man- 
ual consists of overhead such as in- 
troductions, tables of contents, and 
copyright and warranty notices. We 
feel that both manufacturer and end 
user would benefit if the manuals 
were consolidated into one book. 




CBUS-I allows the user to examine the 
contents of any Commodore 64 cartridge. 




CBUS-ll contains 16 kilobytes of static 
RAM with cartridge emulation circuitry. 



THE SOFTWARE 

If you opt for CBUS I Deluxe or 
the complete package, you will get 
all of the appropriate software on 
disk. This includes a menu genera- 
tor program for use by either of the 
loader programs. Also included are 
two versions of Jim Butterfietd's Su- 



pennon and a Mini-Monitor designed 
specifically for use with the CBUS 
package. The latter is a hybrid of ma- 
chine language and BASIC. Overall 
we found the provided support pro- 
grams to be effective but lacking in 
polish. But then again, their brevity 
is considered a virtue for this particu- 
lar application. 

WHAT IT'S GOOD FOR 

The manufacturer places primary 
emphasis on the benefits of transfer- 
ring cartridge software to disk. The 
saving of wear and tear on the car- 
tridge port is one case in point. Ad- 
ditional benefit is to be obtained by 
the reduction of storage requirements, 
as several cartridges can be kept on 
one disk. Also touted was the con- 
venience of being able to load pro- 
grams directly from disk. We leave 
die evaluation of these considerations 
to the end user. We did feel that being 
able to rapidly swap cartridges held 
the edge in convenience. 

We would have liked to see addi- 
tional emphasis placed on the capa- 
bilities of the CBUS II as a cartridge 
development system. In this light, it 
would make an ideal companion to 
either of the ROM programmers in 
the accompanying reviews. Being 
able to try out a cartridge-based pro- 
gram in a total cartridge emulator 
without the need to continuously 
erase and reprogram a ROM is a con- 
venience worth looking into. 

Although the CBUS II cartridge in- 
cludes sixteen kilobytes of RAM, do 
not expect to use it as expansion 
memory. The design of the CBUS II 
and its associated personality latch 
prevents simultaneous read and write 
operations to its RAM. The hardware 
can be configured to store data into 
the RAM or to read the data from it, 
but not both. To engage in two-way 
communication with CBUS 11, your 
software would have to continuously 
reconfigure the personality latch. 

CONCLUSION 

The CBUS is an effective tool for 
manipulating cartridge firmware. The 
CBUS II is a valid cartridge devel- 
opment tool as a total cartridge emu- 
lator. If you already own an expan- 
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sion chassis for your C-64, then you 
may consider adding the CBUS I 
switches yourself. Although it does 
involve some soldering and cutting of 
printed circuit traces, it is not an over- 
whelming task. CBUS I sells for 
$34.95- CBUS II is S84.95. An ad- 
ditional $15.00 gets you CBUS I De- 
luxe, with the associated software on 
disk. The entire package can be had 
for $il9.95. n 

CARTRIDGE-MAKER-64: 

EPROM PROGRAMMING FOR- 
THE MASSES 



Custom Programming Group 
47 Marchwood Road-Ste. 2A 

Exton, PA 19341 

Phone: 215-363-8840 



The Cartridgc-Maker-64 system 
simplifies EPROM programming so 
that anyone can do it. The entire chip 
selection process, along with the need 
to handle individual chips, has been 
eliminated. This operational simpli- 
city does have its limitations. The sTrfs- 
tern is designed to program only one 
type of EPROM, the 64 kilobit (eight 
kilobyte) 2764. 

THE HARDWARE 

A complete Cartridge-Maker-64 
system consists of four components: 
the Cartridge-Maker-64 itself, a car- 
tridge eraser, a blank Cartridge-64, 
and the user manual. These are avail- 
able as a complete kit or as individ- 
ual components. 

The central component is the Car- 
tridge-Maker-64, an EPROM pro- 
gramming module designed to pro- 
gram one or two type 2764 EPROMs. 
This 4 X 6 X \'A" module fits into the 
computer's expansion port. An edge 
board connector at the back of the 
module accepts standard Commodore 
64 program cartridges. A three-po- 
sition toggle switch controls the pow- 
er to this connector. The electrical 
status of the connector is indicated by 
a pair of light emitting diodes: a 
green one to indicate the presence of 
power and a red one to indicate pro- 
gramming activity. 

Hidden inside this black box is the 
PROM piDgimnming and control cir- 
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cuitry. This allows the single switch 
to electrically isolate the Cartridge- 
Maker-64 connector. When the 
switch is in the OFF position, it is 
safe to insert or remove a cartridge 
without turning off the computer. 
Also included in the package is an 
eight kilobyte operating system on 
ROM. This program takes care of all 
the cartridge reading, writing, and 




Cartridge-Maker-64 lets you program 
up to two 2764 EPROMs at one time. 




The built-in ultraviolet light source 
allows you to erase your EPROMs. 




A Cartridge-Maker-64 cartridge. Cen- 
ter: EPROMs installed. Right: bare. 

user interface tasks. The system is 
flexible enough to allow for the com- 
plete programming of a sixteen kilo- 
byte cartridge without the need for a 
disk drive or cassette deck. 

The cartridges designed for use 
with the Cartridge-Maker-64 are sim- 
ilar, but not identical, to commercial 
C-64 cartridges. Each Cartridge-64 
comes fitted with a pair of type 2764 
eight kilobyte EPROMs permanently 



soldered into place. The board's cir- 
cuitry is designed to allow the 21 volt 
EPROM programming voltage to be 
applied by the Cartridge-Maker-64. 
The board is also fitted with a six po- 
sition DIP switch for setting Car- 
tridge-64 to any of four standarel C-64 
cartridge configurations. These con- 
sist of eight kilobyte cartridges at the 
$8000 or $E000 blocks or sixteen 
kilobytes at the S8000/$A000 or 
$8000/$E000 blocks. The EPROMs 
may be programmed individually or 
in pairs. This allows up to two 
Commodore 64 cartridges to be 
copied onto one Cartridge-64. 

The Cartridge-Eraser is an ultra- 
violet light source designed to erase 
a Cartridge-64 in less than ten min- 
utes. A safety interlock is built into 
the top of the case to prevent acci- 
dental exposure to the ultraviolet light. 
This light is intense enough to cause 
damage to the eyes. The switch is re- 
cessed inside the top cover well away 
from accidental activation. However, 
it is readily reached by prying fingers. 
Avoid this temptation and keep the 
eraser away from small children. 

Although the hardware is specifi- 
cally designed for PROM program- 
ming in the C-64 cartridge configur- 
ation, the system can be easily 
adapted for the programming of indi- 
vidual type 2764 PROM chips. A 
bare Cartridge-64 printed circuit 
board is available for $12. You will 
have to install your own six or eight 
position DIP switch for chip selec- 
tion. Two 28 pin DIP sockets should 
al.so be soldered onto the board. 
These should be of the zero insertion 
force (ZIF) construction. When com- 
plete you will be able to easily pro- 
gram 2764s, individually or in pairs, 
with the Cartridge-Maker-64 system. 

THE FIRMWARE 

Cartridge-Maker-64 comes with its 
own built-in menu-driven software in 
an autostart ROM. The opening 
menu lets you select the screen col- 
ors. This is followed immediately by 
the main menu with the nine system 
selections. The first of these is the 
Cartridge to Cartridge utility. This 
function will automatically identify 
the original cartridge type and read 



WaferDrive. 
ANewTechnobgy 




Floppy disk 
performance for 
your Commodore 
at audio 
cassette prices. 

Entrepo's QUICK DATA 
DRIVE ' brings high speed 
mass storage to the Commo- 
dore 64'' and VIC 20. " De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and I minute for the 
Commodore Disli Drive. 

■ Suggested retail price 
under $85 

• 20 times faster than audio 
cassette 

■ Fully automatic opera- 
tion — needs no rewinding 

■ Highly reliable 

■ Can be used with a second 
drive or an audio cassette 

■ Comes with file manage- 
ment system and utility 
program 

■ Top selling software avail- 
able on Microwafer " 
media 



♦ entrepo 

ENTREPO, INC. 

1294 Lawrence Station Road 

Sunnyvale, California 94089 

(408)734-3133 

Telex 176337 
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EVALUATES FROM RACING FORM! 

GentJer Posi(To<)avi 

I Jockey (Todav) PW fLaai) 

ir<or. jDCkey {Last) SpKfJ 

lency Length Tramer 

gs Time oT Vear Wo^kouTs 

And g-ves you GRAPHIC REPRESENTATION of finish 
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PROGRAM 
GLO. Thoroughbred "Gold" EdKlon^** 
A Fjil feaiureo irro/oughbi'ea anaiysjs designeo (oi Itie ptoies- 

Sional and senojs riowce St 59.95 C^mplflle 

EGLD. Enhanced "Gold" Edition''^ 
Gold' Edilior* w<ih comptele Mast^ &eIiO'TM sysiem iniegfaied 
Chrtio \ht 9amQ disk This powerful program iviii t^ansl^f ^1 hoi«e« 
era scores 10 1^6 bai analysis wtlh a "sir^gle heystrohe " 

(Maswf BwioiTM included) S199.95 compieie 

GLTD. Limited "Gold"™ 

Enatiles. PrdTvuior^d Hartdlcapperv to as&ign spec<iic values Id rhe 
racing iianades mey 'eel are ittiportani 

PROFESSIONAL HANDICAPPINO SV^TEMS 

ab "^3 ^1^ 

Age S 

Class IS 

Comdiiion 10 

Earnings 5 

100% I? Everylhing OK {Y(NJ 

C'sai^ program weigni bas.dd on a pa/iiculai track and line lune it 
'o' msKtmum wm perceniage Thrs jyo^ram is destQniQd tor ' ease 
■or us© ' Thfl user needs f*0 proflrammtng vipvrtvncn. 

(contains irte^ratwJ Bettor TM| $299-95 compieie 



GO. Gold Oog AnatysiB^" 

The omiy piolB55tonal (tog harnjicappef on irte marHet. trtcludes 

1) Speed 61 Candilion 

2) Post Today 7) Running Style 
31 Kennel B) Weis^il 

4| Posi Last S| All naw mlernal wtngnimg 

5| Dialance 10) NEW claas irdicaior 

II yuti A'S r«ar a greytiound tiac^. yW CMn'l aifofd not co uso f^is 
prap'a^ SI 49.95 compiele 

twi\h inieg^ated Masler 8eHorTM| St99.9S 
Limiled Dog™ S299.95 



3rt$i6TenCy IS 


Spo&d to 


Jockey tS 


WortiDuts 


Traincf 5 


Time ol Vesi 


Post to 


Corsiaoncv 5 
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HHH. Master Harness Handlcapper™ 

Professional sottware (Jasignecl to piovide a Hhorougri analysis o! all 
tiotlef and pac«r races m North America and Canada Features' 
Class Post Position* Time Finish 

Driv«r Track Conditions Time Lasi Ouartor 

Days Since tasi T*airier Track Rating 

Gcf>dor Tiime "* Temp Allowance 

SI 59.95 complete w/mlegraled MasTCf BeHOfTM SI 99.95 

PPX. ProlBssor Jortes' Football Predictor. Prof. Plx""^" 

Comiplete Football Analysi^s wilh Dal>-B»«- 

1) Ovflilay* 4) "Ovei/Under ■ tMis 

2) Point Sfjread? S) Data Base Stats 

3) Super Plays' B) Hrrids 'lOO' teams 
HIghHl percentage ol wlr»oen 1S83 S39.95 complete 

$99.95 With Data Base Manaigefnent 

NBA. Basketball'^'' 

This data i^ase rnanagad analyses will provide the user w)ih "AIL 
belling situations white storing lelovani inliymation on the disit 
S99.95 complete wyManuat S129.9S NaA/Co^iege Version 

LOT- LOTTERY ANALYSIS™ 

Staiisticai comparison progTom designeiJ to detect subtle patterns 
■1 wmnirvg loitery numOeis 
S79.9S cgmplete wjTManuai S99.95 with Loiio 
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SenO cneck / money Ofdef / VISA / Masiercharge 
(include exp.ra.iondaielio: p^^,_ j^^^^ 

O1940 W. State SI. 
Boise, ID 83702 

TELEPHONE 
(208) 342-6933 



TERMS: FHEE SHIPPING ALL SOFTWARE Add S6 00 natd- 
ware ( S6 00 C O D J UPS Blue SO 00 / Oul dI Counlry {9 00 
/ ID Residents 4qt ( 3 weeks personal checks / Cash price 
only, add 2*^b Visa MC / Pnces subjecl lo change 
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the data into memory. You will then 
be instructed in the proper switch set- 
tings for the Cartridge-64. Simply fol- 
low the prompts for switching car- 
tridges and setting the program con- 
trol switches. 

Cartridge-64 will not work with 
cartridges designed for switching be- 
tween external ROM and C-64 inter- 
nal ROM or RAM. These cartridges 
are equipped with onboard hardware 
latches that Cartridge-64 does not 

emulate. 

The next two main menu choices 
deal with the placing of BASIC pro- 
grams into cartridge. This will let you 
create an autostart cartridge without 
any knowledge of machine language. 
When the computer is turned on the 
program will be automatically down- 
loaded into the normal BASIC pro- 
gram area and RUN from there. The 
program can even be STOPed, 
LISTed, and modified as desired. 
BASIC programs in cartridge are lim- 
ited to a maximum length of 8,000 
bytes by the Cartridge-Maker-64 sys- 
tem. The presence of the Cartridge- 
64, which contains the BASIC pro- 
gram, also reduces BASIC program 
space to thirty kilobytes. Placing a 
BASIC program into a cartridge is a 
simple way to create an autostart pro- 
gram which will not require a disk 
drive or cassette deck to LOAD and 
RUN. 

The next two menu choices allow 
for the transfer of data between car- 
tridge and memory. These are the ba- 
sic 2764 programming modes. Loca- 
tions $6000-S9FFF serve as a buf- 
fer area in the C-64. You will have 
to LOAD these buffer areas with the 
appropriate data before using these 
menu choices. 

The next four main menu selec- 
tions deal with the transfer of data 
from disk or tape to or from a C-64 
cartridge. Cartridge-Maker-64 disk 
files are sequential files. Tape files 
are program files. Included in all files 
is information on the original cart- 
ridge type in addition to the program 
data. 

The last menu choice lets you exit 
to BASIC. A simple SYS call will en- 
able you to reactivate the Cartridge- 
Maker program. 



THE MANUAL 

All of the Canridge-Maker-64 sys- 
tem features are thoroughly described 
in the thirty-page user's manual. The 
presentation is geared to the user with 
a minimum of technical background. 
However, some understanding of the 
C-64 memory structure is needed to 
obtain the maximum benefit from this 
system. Complete details of the Car- 
tridge-Maker file structures, as well 
as descriptions of the various C-64 
memory maps, are included. 

CONCLUSION 

The Cartridge-Maker-64 system is 
certainly an easy-to-use EPROM pro- 
grammer. This ease of use incurs a 
substantial penalty with regard to 
overall flexibility. The system is lim- 
ited at best to the programming of a 
single type of EPROM. Although 
considerable emphasis is placed on 
the copying of cartridges, it is unlike- 
ly that this will be cost effective. An 
entire system, including the eraser 
and programming modules as well as 
a single sixteen kilobyte module, sells 
for $189. Additional sixteen kilobyte 
modules, with EPROMs, are $25 or 
five for $115. The system can be used 
to minimize program development 
times by allowing BASIC programs 
to be placed into cartridges. This stor- 
age medium is suitable for custom 
applications in unattended locations 
where the harsh environment may 
preclude the use of a disk drive. 



a 



AUTHOR'S NOTE 

A machine language monitor 
(MLM) is required to obtain the 
maximum benefit from these 
products. Several excellent MLMs 
are available in the public domain. 
If you have not yet come across 
these programs, I will provide a 
copy of my MLM disk for a $12 
copying and distribution fee. This 
self-documenting disk includes 
Extramon, Micromon, and some 
disk editing utilides. Send your re- 
quest to Morton Kevelson, P.O. 
Box 260, Homecrest Station, 
BrooWyn, NY 11229. D 



Reader Service No. 121 



S4 



inJMSn' I^EIKDRl 



SPEEDING PIXELS 




Some Assembly Language Help for Bit-Map Graphics 



By Dale W Rupert 



We saw last month that BASIC is very sluggish 
when it comes to manipulating the 64,000 pix- 
els in high resolution bit mapped graphics. This 
month we will develop two assembly language 

routines to help speed things up. The first routine does 
nothing more than clear the 8000-byte bit map memory. 
The second routine performs the calculations necessary 
to locate a pixel on the screen and puts it there. 

When we are finished this month, we will have a some- 
what cumbersome interface to BASIC. We must still 



POKE X and Y values in order to plot the point (X,Y). 
We will not be able to draw lines instantly between any 
two points. But we will have the groundwork on which 
to build other capabilities in the future. We will create 
some very diverse assembly language modules. Conse- 
quently, you may find this article useful as a machine 
language tutorial. 

PRELIMIMRIGS 

The BASIC program on page 89 (Listing 1) is similar 
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"You've Tried The Rest... 
Now Try The Best!" 



A Clever advertising slogan? Perhaps. But we at Ariworx have 
found that phrase to apply to our ALLEGRO advanced music 
synthesis program. Most of our registered ALLEGRO 
customers already own ai least one of the "better selling" 
music programs for the Commodore 64. So why do they con- 
tinue !o spend good money for yet another music program? 
fulostly because the other programs are not complete. They 
may produce nice music, but won't allow that music to be put 
into a computer program; or they have fancy "slider" controls 
for ADSR envelopers but have an impossibly difficult means of 
music entry; or they have fancy joystick controlled note entry 
but don't play worth a darn. Not so witn ALLEGRO. 

ALLEGRO IS DIFFERENT 

ALLEGRO IS a complete music synthesis program. By that we 
simply mean that ALLEGRO does everything required to obtain 
professional quality electronic music. It does it welt, it does it 
easily and it does it intelligently ■ with no distracting gimmicks 
for the sake of gimmicks. And it does it all on one disk_ You will 
not have to spend an extra $35 for a "synthesizer" disk or S25 
for a disk that allows you to play music Uom the keyboard. And 
you won't be fruslrated by incomplete instructions ■ ALLEGRO 
comes with over 70 pages of extensive documentation taking 
you from theory (o application and all points in between. It even 
contains helpful information on hooking up your stereo to the 
computer and including your music in your own BASIC or 
assembly language programs. One review stated that 
ALLEGRO "...IS a technical work of art. The demo songs are 
truly stunning, the 74-page manual is worth the purchase price 
for its clear discussions of music and digital sound." 

ALLEGRO'S FORTE EDITOR 

ALLEGRO consists of four parts: the Editor, the Instrument 
Builder, the Registers Control and the Ivlodulations Control. The 
Editor is used to enter and edit your music. This is accomplish- 
ed using the specially developed FORTE music notation 
language. It is the fastest method of inputting a musical score 
-easily beating out the the best of the joystick controlled "note 
and staff" methods, and very simple to use for modifying or 
correcting your music. With (he FORTE editor, you will be able 
to create music that can use up to 85 different instruments in 
one piece, or choose any of the 50 pre-programmed instru- 
ments that come with the program. ALLEGRO gives you the 
widest flexibility in musical range, it handles notes as short as a 
64th triplet and has over 900 tempo settings, Each piece can 
contain over 5800 individual notes (I) and endless repeats, The 
dynamic range spans not only eight audible octaves, but five 
additional sub audible octaves for special effects! 

INSTRUMENTS 

Every music program comes with pre-programmed instruments, 
but ALLEGRO has over 50 ranging from harpsichord to drums 
(0 bagpipes. Every music program allows you to change instru- 
ments within a piece, but ALLEGRO gives the user the flexibili- 
ty of selecting any of up to 85 instruments. And any of these in- 
struments can be modified or replaced t3y another group of 85 
user-defined instruments. Coupled with ALLEGRO'S use of 
registers and modulations (using over 20 oscillators available 
within the Commodore 64), all sorts of unique instrumental 
sounds are at your disposal. 




SPECIAL EFFECTS AND FEATURES 

ALLEGRO'S Registers and Modulations controls give you more 
conlrol over your performance than with any Other program 
available. ALLEGRO supports all possible filter and cut-off 
combinations, and resonances too. It provides ring moduiator, 
Phaser and heavymetal effects (250 levels) as well as ad- 
justable vibrato and siren effects, it has pulse width sweeps for 
fuzz bass and realistic piano sounds as well as filter sweeps for 
wah-wah and dynamic timbre changes. And once a composition 
has been completed, it can be stored as an interrupt driven 
PASSKEY file which can &e called from the user's own program 
by a one line instruction. A PASSKEY file can hold a maximum 
of 41 songs and requires only 4K from BASIC regardless of the 
amount of music that it contains! 

PERFORMANCE FEATURES 

ALLEGRO can turn your Commodore 64 into a real lime 
musical instrument allowing you to play along with pre- 
programmed background rhythms directly from the keyboard. In 
tact, you will find that the ALLEGRO keytioard layout is com- 
patible with certain add-on piano style keyboards. There are 
two performance modes: monophonic. for playing single notes 
along with a background track, and polyphonic, using three 
voices and simultaneous keystrokes allowing real chords to be 
played. During performance, you will be able to change instru- 
ments, octaves, vibrato, staccato, wah wah and more with just 
one keystroke! 

SUMMING IT UP 

As you can tell, we're pretty keen on this program. It's the 
perfect program for ihe beginner because of its slraighlforward 
layout and clear documentation. It's the perfect program for the 
knowledgeable user because of its flexibility and ease of music 
entry and transcription, and it's Ihe perfect (if only) program for 
the professional because of its completeness and capabili- 
ties — it has already been used to create the music for at least 
two best-selling Commodore programs. With ALLEGRO, Ari- 
worx has provided all the necessary tools, the ALLEGRO user 
is limited only by imagination. 

FREE OFFER) 

No, ALLEGRO does not come free. It costs $39.95 and if you 
buy it direct from Ariworx, it will cost you an additional $2.00 
for postage (and New Yorkers will have to pay sales tax). What 
we will include at no extra cost is an ALLEGRO sampler disk 
containing over 40 musical selections contributed by 
ALLEGRO users. Ranging from baroque to punk, these selec- 
tions provide hours and hours of unique musical composition. 
No, you will not find "Home On The flange" or "Jingle Bells" 
on this disk! There is one catch, however: we must receive 
your order before July 31, 1985. Call toll-tree: i -(800)-828-6573 
or send check or money order, VISA or MasterCard gladly 
accepted. 



■JI 



Please Send Me ALLEGRO 
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Enclosed is my cfieck for $_ 

N U M BER 

Signature 



. Bill myDVISADMasterCard 
EXP. DATE 



Name (please print) 

Address 

City 



.Stale. 
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ARTWORX Software Co., Ir)c.. 150 North Main St., Fairporl, NY 14450 



ARTWORX Software Co , Inc., 150 Nortti Main SI.. Fairport. NY 14450 
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to the program we discussed last month. To begin, let's 
review the concepts and procedures involved in high res- 
olution bit map graphics. 

The bit map consists of 8000 bytes beginning in RAM 
at location 8192. Each of those 64,000 bits corresponds 
to a specific dot or pixel (picture element) on the screen. 
If a bit is set to one, the pixel is one color, and if a bit 
is reset to zero, its pixel is another color. The screen ap- 
pears as an array of 320 (horizontal) by 200 (vertical) 
pixels. 

The 1000 bytes of normal screen memory from loca- 
tions 1024 to 2023 .each store two nybbles of color data. 
The color resolution is 64 bytes. That means each byte 
of color data applies to 64 pixels on the screen. The data 
in location 1024 defines the possible colors for the 64 
pixels in the upper left (eight-by-eight) corner of the 
screen. Similarly, the data in location 2023 defines the 
colors for the lower right corner. There are 16 possible 
colors to choose from, but each eight-by-eight block of 
pixels will consist of any two of those colors. 

Some examples should clarify all this. Assume loca- 
tion 1024 contains the value S24 (i.e. decimal 36 -the 
"$" signifies a hexadecimal value). The possible colors 
of the 64 pixels in the upper left corner of the screen 
are red and purple. To understand this, refer to the color 
values listed in Appendix D of the Programmer's Refer- 
ence Guide (PRG) or Appendix G of the User's Guide. 
Red has a value of 2; purple has a value of 4. The hexa- 
decimal number with one nybble of 2 and the other nyb- 
ble of 4 is the value to select the colors red and purple. 

To select light red and light blue for the lower right 
corner, put 174 ($AE) or 234 (SEA) into location 2023. 
Light red has a value of 10 ($A), light blue has a value 
of 14 ($E). The hexadecimal color code is then $AE or 
SEA. To convert to the decimal equivalent, multiply the 
first value by 16 and add it to the second: 16*10 + 14 
equals 174. 

The first color code (most significant nybble) corre- 
sponds to the pixels whose bit map memory bits are set 
to one, and the second color code is for the pixels whose 
bits are reset to zero. 

The chart on page 125 of the PRG shows the rather 
complicated addressing structure of the bit map memory. 
The formulas for locating the correct memory location 
and the bit within that location for a particular pixel are 
contained in lines 400 to 420 of the BASIC program in 
Listing 1. 

We saw last month that to use bit map graphics mode 
we must define the starting location of the bit map mem- 
ory by setting bit 3 of VIC-II register 24. Then we must 
set bit 5 of VIC-II register 17 to enter bit map mode. 
Those functions are performed in lines 40 and 50 of the 
BASIC program in Listing 1. The user-defined functions 
FNSB and FNRB are "set bit" and "reset bit" functions. 
The statements MM=VV-f-24 : POKE MM, FNSB(3) 
set bit 3 of location MM, where MM has the address 
of VIC-II register 24. 

The program in Listing I may be run without creat- 



ing the machine language routines we are discussing here. 
Once you have assembled the two programs with file- 
names CLSCRN.O and PLOT.SC.G and have them avail- 
able on disk, you may delete lines 65 and 265 of Listing 
1. Then the two machine language programs will be used 
instead of their BASIC equivalents. (If you prefer to get 
CLRSCR.O and PLOT.SC,0 up and running without as- 
sembling them, we've provided Fiankspeed listings of 
each on page 89.) 

It takes an interminably long time (roughly thirty sec- 
onds!) for BASIC to clear the 8000 bytes of bit map mem- 
ory using a FOR-NEXT loop. In this type of applica- 
tion, machine language really shines. Let's see what it 
takes to speed up the screen-clearing process -by a fac- 
tor of 135 or more! 

\m m SEE IT 

The CLRSCR.O assembler listing puts zeroes into 8000 
consecutive locations beginning at address 8192 ($2000). 
The programs in this article were assembled with the 
Merlin 64 macro assembler. The main differences be- 
tween listings from different assemblers are the assem- 
bler directives, more commonly known as pseudo-ops. 
Pseudo-ops look somewhat like the genuine-ops, the 
mnemonic op-codes of the 6510. Actually they're instruc- 
tions to the assembly itself, not to the processor. 

Lines 6 and 10 through 14 of the CLRSCR.O listing 
contain pseudo-ops. ORG is fairly .standard. It tells the 
assembler the ORiGin of the program, that is, where this 
program will reside in memory. The EQU assigns a value 
to a label. In this case, it tells the assembler that a refer- 
ence to PAGEO actually refers to memory location SFB. 
Neither ORG nor EQU cause any object code to be gen- 
erated. Again, they are instructions to the assembler. 



Assembled Version of CLRSCR.O | 








1 
2 


» 

* RUPER1 
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^^^ 


^ 




3 


• HI-REE 


GRAPHICS 




■ 


i 




4 
5 
6 
7 

8 
9 
10 


* CLF,AR 

* 


SCREEN 


ROUTINE 




l^a^^M 






* 


ORG 


$330 


TBUFFR (828) 


033C: 


4C 44 


03 


* 


JMP 


START 










PAGEO 


EQU 


SFB 


USE 2 BYTES 


fj33F: 


</) 20 




U 


BASE 


DA 


$2<lf>(i 


SCRNHEH (8192) 


0341: 


IF 




12 


BLOKS 


DFB 


31 


8r)f|rj=.31*255 


0342: 


40 




13 


)CTRA 


DFB 


64 


+64 


fm3: 


'/) 




14 
15 
16 


FII,L 


DFB 





SCRN FILL CHAR 








START 








fj344! 


kTI 3F 


03 


17 




LDA 


BASE 


(BASE LSB 


0347: 


85 FB 




18 




STA 


PAGEO 


:PACE ZTM 


0349: 


AD 40 


03 


19 




LDA 


BASE+1 


;BASE MSB 


034C: 


85 FC 




20 




STA 


PAGEfH-l 




034 E: 


AF, 41 


03 


21 




LD)t 


BLOKS 


;S0. BLOCKS 


03SI : 


AO f/i 




22 




LDlf 


*0 


;256 BYTES 


0353: 


AD 43 03 


23 




LDA 


FU-l. 




0356: 


88 




24 


LOOP 


DET 






0357: 


91 FB 




25 




STA 


( PAGEO), T . 




0359: 


Dfj FB 




26 




BNE 


LOOP 


[NO 


035B; 


E6 PC 




27 




INC 


PAGE'Hl 


;00 NEXT 256 


03SD: 


CA 




23 




DEX 




ANY MORE? 


035 E: 


yi 07 




29 




BMI 


DONE 


iNOPE 


0360: 


DO F4 




yj 




BNE 


LOOP 


J DO MORE BLOCKS 


0362: 


AC 42 


03 


31 




LDY 


XTRA 


:D0 EXTRA.S 


0365: 


ai EF 




32 
33 


DOSE 


BNE 


LOOP 


:F1LL EXTRAS 


03r37: 


¥i 




34 
35 


END 


RTS 




BACK TO BASIC 



The DA and DFB pseudo-ops, on the other hand, do 
generate code. The assembler takes the values follow- 
ing each of these and places them in consecutive mem- 
ory locations. DA stands for Define Address, and the val- 
ue following it is stored in the standard "least significant 
.byte (LSB) first, most significant byte (MSB) last" se- 
quence. DFB allows the programmer to define one or 
more bytes to be put into memory. Both of these pseudo- 
ops also allow the programmer to assign labels to these 
values, similar to variables and the LET statement in 
BASIC. 

A block of two hundred fifty-six bytes is referred to 
as a page. The eight thousand bytes of bit map memory 
corresponds to thirty-one pages plus 64 additional bytes. 
This routine uses the Y register to cycle from 255 down 
to 0, pointing to individual addresses on a page, while 
the X register keeps track of how many pages have been 
cleared. Once the 31 pages have been cleared, the num- 
ber of extra bytes (64) is loaded into the Y register, and 
those bytes are cleared. Let*s look at the details. 

The DA statement in line 11 puts $00 into address 
BASE and $20 into the next location, which is BASE -hi. 
For example, when this program is assembled, the JMP 
statement in line 8 consisting of three bytes is put into 
locations $33C, $33D, and $33E (since the ORG was 
$33C). Consequently RASE corresponds to address $33F 
and BASE+1 refers to address $340. 
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Line 17 (LDA BASE) loads the accumulator with the 
$00 it finds at address BASE. Line 18 puts this value 
into page zero location $FB (PAGED). Similarly, the val- 
ue at address BASE+1 is put into location SFC l^ lines 
19 and 20. The X, Y, and A registers are loaded with 
their initial values of 31, 0, and in lines 21 through 23. 
The first statement of the main loop at line 24 decre- 
ments the Y register, so Y now contains $FF. 

The main loop of this program uses indirect indexed 
addressing. This mode of addressing requires that the 
address to be indexed is stored on page zero. That is the 
purpose of lines 17 through 20. We have chosen page zero 
addresses $FB and SFC to store the page address of each 
block as it is cleared. According to page 316 of the PRO, 
addresses SFB through SFE are available to us. 

Indirect indexed addressing is among the more com- 
plicated addressing modes. Let's examine the instruction 
in line 25 of the CLRSCR.O listing: 

STA (PAGEO),Y 

This instruction says to store the contents of the accum- 
ulator at the address which is indicated by the contents 
of the page zero locations PAGEO and PAGEO+1, as in- 
dexed by the Y register. Phew!! Let's try this step by step. 

The effective address at which the data in the accum- 
ulator is stored is determined through a roundabout se- 
quence of events. First recall that PAGEO is a label as- 
sociated with the page zero address SFB, as defined in 
line 10. The processor reads the two bytes stored at lo- 
cations SFB and SFC. Initially these will be $00 and $20 
respectively, as we saw above. These two bytes are in- 
terpreted to be the address $2000. Next, the processor 
takes the value in the Y register (initially SFF) and adds 
it to the $2000. The effective address is consequently 
$20FF. The which is in the accumulator is stored at 
address $20FF, thereby clearing that memory location. 

According to the table on page 417 of the PRG, the 
entire sequence just described takes a grand total of 6 
microseconds. You can see this by reading acnDSS the STA 
row to the "(Ind.) Y" column. There you see the hexa- 
decimal value ($91) for this mode of the STA instruc- 
tion. You also see that the instruction consists of 2 bytes 
(#) and requires 6 machine cycles (N). Each machine 
cycle on the Commodore 64 is roughly 1 microsecond 
(one-millionth of a second). All the address fetching, cal- 
culating, and storing described in the previous paragraph 
takes less than l/160,000th of a second! 

Now that location $20FF has been cleared, the pro- 
gram continues at line 26. The statement BNE LOOP 
means "check the zero flag, and if it's not set, jump to 
the statement labeled LOOP." Let's discuss this concept 
of flag setting and checking. 

FLAG m\m 

The zero flag is one bit inside the processor which 
is updated whenever certain operations are performed 
by the processor. The STA instruction does not cause 



Computer Warehouse Presents: 

THE TWO 
COMMANDMENTS 

THOU SHALT NOT WASTE THOU SHALT NOT WAIT 



At Computer Warehouse you can buy hard- 
ware, software, and accessories for less. Just 
check our prices below for yourself. 

The fact that we're one of the nation's largest 
mail order sources gives us an advantage over 
our competition, and we pass real savings on 
to you. 



We not only sell for less, but we ship out 
your orders within 48 hours. And we even have 
a toll-free number so you can call your orders in 
at no charge. 

Low prices, fast delivery. Computer Ware- 
house. Thou Shalt not buy anywhere else. 



PRINTER INTERFACES 


MONITORS 




Special Sheets 




CardcoG+ 


$69.95 


1702 Color 


$199.95 


Multiptan 


$59.95 


Cardco B 


$49.95 


Gorilla (green) 


$ 79,95 


Practicalc II 


$49.95 


Tymac Connection 


$69.95 


Gorilla (amber) 


$ 89.95 


Swift Calc 


$59.95 


Uniprint 


$59.95 






Calc Result 


$69.95 


Axiom Parallax CD 


$69.95 






The Manager 


S35.95 


Turbo Print 


$79.95 


DISK DRIVES 












Indus GT 


$289.95 


Utility Software 




MODEMS 




MSD Dual Drive 


$499.95 


Print Shop 


$34.95 


West ridge Automodem 


$69.95 


MSD Single Drive 


$289.95 


Fast Load 


$29.95 


Mighty Mo 


$74.95 


1541 (C64) 


$179.95 


Mail Now 


$32.95 


Modem 300 (1660) 


S84.95 






Bl 80 (80 column 




MPP 1064 C64 


$84.95 






card) 


$149.95 


Total 




SOFTWARE 




Floppiciene Head 




Telecommunication 


$59.95 


Word Processors 




Cleaner 


$ 14.95 


PRINTERS 

Commodore 801 
Commodore 803 

(tractor feed option) 
Commodore DPS 1101 

(Daisy Wheel) 
SlarSG-lO 
Panasonic 1090 
Panasonic 1091 
Citizen MSP-10 


$159.95 
$179.95 
$ 29.95 

$299.95 
$229.95 
$229.95 
$299.95 
$329.95 


Paper Clip (w/spell) 
Word Pro 3 * (64) 
Write Now 
Bank Street Writer 
Fleet System 2 
Script 64 
Easy Script 

Data Bases 

Superbase64 


$74.95 
$39.95 
$39.95 
$45.95 
$64.95 
$39.95 
$39.95 

$75.95 


DISKETTES* 

Computer Warehouse ssydd $14.95 
Elephant ss/sd $13.95 
Elephant ss/dd $16.95 
Maxell MDI $16.95 
Maxell MD2D $24.95 
SKC ss/sd $13.95 
SKCss/dd $16.95 
•Prices per boxes of 10 


GE 1000 
Axion Elite 5 
(Daisy Wheel) 


$210.95 
$275.95 


The Consultant 
Practifile 
File Now 


$69.95 
$29.95 
$39.95 


WYSE (IBM Compatible) 
Commodore Computers 


CALL 
CALL 


Powertype (Daisy Wheel) 


$339.95 


FCM by Continental 


$59.95 


We also carry a lull line of Commodore 


1027 


$179.95 


PFSFile 


S59.9S 


Hardware, Sotlware and accessories 



COMPUTER 
WAREHOUSE 

(In FL) 305-274-3680; 1-800-372-0214 
7222 S.W. 117th Avenue, Miami, FL 33183 

Add 3% (Of shipping and handling charges Ad prices relied 3% cash discouni Creflii card orders should add i'r, Prices subfeci to change without notice. 
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the zero flag to be updated. This is indicated by the "— " 
under the Z in the Condition Codes column on page 417 
of the PRG. This information is repeated in larger letters 
on page 251 of the PRG. 

If you look up the DEY instruction on page 242 of 
the PRG, you wilt see that the N and the Z flags are 
checked. This means that after the processor performs 
a DEY instruction, it looks at the result of the operation 
and sets those two flags accordingly. The N flag is set 
whenever the most significant bit (MSB) of the result 
is set. ("Set" means "equal to one.") The Z flag is set 
whenever the result of an operation is zero. 

The value of Y was initially 0, and the firs! DEY in- 
struction decremented it to $FF. Since $FF is not equal 
to zero, the Z flag will not be set. (That is lo say, it will 
be reset or cleared.) Consequently, the BNE ("Branch 
if Not Equal to zero") instruction sends the processor 
back to address LOOP. A quasi-BASIC translation of the 
DEY : BNE LOOP instruction pair might be 

Y = Y-1 : IF YOO THEN GOTO LOOP 

Read the description of the BNE instruction on page 238 
of the PRG. Keep in mind that the state of a flag is de- 
termined by the last instruction which affected that flag. 

The three instructions in the main loop beginning in 
line 24 of the CLRSCR.O listing will be executed 255 
times, with Y being decremented from 255 to 1 and ad- 
dresses $20FF through $2{X)I being cleared. On the 256th 
time that line 24 is executed, Y is decremented to zero, 
thereby setting the Z flag. Address S2000 will be cleared, 
and the conditions for the BNE instruction to branch back 
to LOOP are not met. Execution continues with line 27. 

The page address stored in location PAGEO-l-1 is in- 
cremented from S20 to $21. Now addresses $21FF 
through $2100 will be cleared. The X register is decre- 
mented in line 28. It is keeping count of the number of 
pages which still must be cleared. Since X is decremented 
from 31, the result is 30 and therefore the N flag is not 
set. The BMI ("Branch on a Minus result") statement 
looks at the N flag. Results which have an MSB of one 
are considered "minus." Thus $80 through $FF (128 
through 255) are negatives. $00 through $7F (0 through 
127) are positives or "plus" results. 

Since the N flag is not set, execution continues at line 
30. The Z flag is not set (since X was not decremented 
to 0), and line 30 branches back up to the main loop 
to clear the next page of memory. A translation of the 
in.structions DEX : BMI DONE : BNE LOOP might be 

X = X-1 : IF X>127 THEN GOTO DONE 
IF XOO THEN GOTO LOOP 

Keep in mind that X is an eight-bit quantity and decre- 
menting it from gives a result of 255. 

On the 31st time the DEX in line 28 is executed, the 
Z flag will be set, since X becomes zero. At this point, 
the 31 ($IF) whole pages from S2000 to S3EFF have been 

42 AHOY! 



cleared. The BMI instruction in line 29 is still bypassed, 
since X is not negative yet. The BNE in line 30 is also 
bypassed, since X now equals zero. The Y register is 
loaded with the number of additional bytes ($40) to be 
cleared. The page address has already been incremented 
to $3F00 in line 27. 

Now as the main loop is repeated, addresses S3F3F 
through $3F00 are filled with zeroes. Line 28 decrements 
X to $FF, and the BMI in.struction sends the program 
to its conclusion. The RTS instruction returns control to 
BASIC. 

HOW FUT? 

The instructions in the main loop must be executed 
8000 times. Is the increase in speed really worth all that 
we've just been through? The results of some simple tim- 
ing tests are very convincing. Clearing 8000 bytes of 
RAM in BASIC using a FOR-NEXT loop require 1766 
jiffies (sixtieths of a second). This machine language rou- 
tine clocks in at a grand total of 13 jiffies, and that in- 
cludes the time required for BASIC to read the object 
code file into memory from the disk. The routine itself 
takes only 6 jiffies once it is in memory. 

Hard to believe, but true. The machine language pro- 
gram is over 135 times faster than BASIC and nearly 300 
times faster if it is already in memory. That's what makes 
assembly language worth it all— aside from being an ex- 
citing intellectual challenge! 

CRE1TIX(i THE PIJIT 

We will not go through the second assembly language 
program in as much detail as the first. The purpose of 
the second assembly language program is to process the 
specified values of X and Y and to light the appropriate 
pixel on the screen. Refer to the PLCiT.$C.S listing for 
the following discussion. 

The BASIC program in Listing i POKEs values into 
memory locations XVAL, XVAL-l-1, and YVAL for X 
and Y. X is a two byte quantity between and 319. Y 
is a one byte quantity from to 199. The first task of 
PLOT.SC.S is to make sure that the X and Y values are 
in the proper range. If either is out of range, it is changed 
to the maximum value. 

Beginning at line 43. the program evaluates each term 
of the expression 

Z = 320*INT(Y/8) + (Y AND 7) -I- 8*INT(X 
/8) + 8192 

which we saw last month gives the address of the memory 
cell corresponding to the point (X,Y). Taken a piece at 
a time, the task is not as formidable as it might seem. 
The most difficult problem is to multiply INT(Y/8) 
by 320. The procedure is to first calculate 8*INT(Y/8) 
and to multiply that result by 40 Finding 8*INT(Y/8) 
is simply a matter of dropping off (truncating) the three 
least significant bits of Y. This is done with the state- 
ment in line 52, AND #$FB. The accumulator contains 



'^ 



the one byte quantity Y. The "#" implies the iriimediate 
addressing mode. The processor takes the quantity SF8 
and performs the logical AND function between it and 
the accumulator's value, leaving the result of the calcu- 
lation in the accumulator. 

We are using a masking operation here. The three least 
significant bits of $F8 are zeroes and the other five bits 
are ones. ANDing any quantity with zero gives zero while 
ANDing any quantity with one leaves the quantity un- 
changed. Consequently, the five most significant bits of 
Y are unchanged and the three least significant bits be- 
come zero by the operation (Y AND $F8). This is equiv- 



alent to the value 8*INT(Y/8). 

The result is then multiplied by forty. Multiplication 
by powers of two is relatively easy in machine language. 
It amounts to little more than shifting a binary quantity 
one place to the left. Unfortunately, forty is not an even 
power of two. It is equal to the sum of two separate pow- 
ers of two, namely eight and thirty-two. We will use the 
fact that 40*Z equals (8*Z + 32*Z), where Z presently 
equals 8*INT(Y/8). The result will be a two byte quan- 
tity The MSB will be in location Z-l-1 and the LSB will 
be in location Z. 

The ROL (rotate left) instruction in line 61 is used to 





^TF 


■ i> 


* 




Assembled Version of PLOT.SC.O '■''■*»^' ' ' 


blMIL^ 








1 


* 








C'*4D: 


A5 


l-LI 




70 


LDA 


Z+2 


LSB 8*Z 








2 


* RUPERT REPORT 119 




C04F: 


2A 






71 


ROL 


A 










3 


* ASSEMBLER 


LISTING 3 




aj50: 


26 


FC 




72 


ROL 


Z+1 


16*Z 








4 


» HIGH RESOLUTION PLOTTER 


C052: 


2A 






73 


ROL 


A 


^H 








5 


» 








C053: 


26 


FC 




74 


ROL 


Z+1 


^^H 








6 




ORG 


$COf/j 


START AT 49152 


C055: 


IS 






75 


0£ 




^^ 








7 


* 








C056: 


65 


FD 




76 


ADC 


Z+2 


LSB 32*Z+8*Z ■ 


Ciif»fJi 


AC 08 


CO 


8 




JMH 


START 




C058: 


85 


FD 




77 


STA 


Z+2 


1 








9 


* 








C05A: 


A5 


^"C 




78 


LDA 


Z+1 


I 


am: 


3F fJl 




10 


XVAL 


DA 


319 


2 BYTE:LSB,MSB 


C05C: 


65 


FE 




79 


ADC 


Z+3 


fISB 32*Z+8*Z M 


C</i5: 


'jO 




11 


yVAL 


DFB 





1 BYTE 


C05E: 


85 


FE 




&) 


STA 


Z+3 


m 


a /Id: 


'fi 20 




U 


BASE 


DA 


$20r/; 


BIT-HAP MEMORY 










31 


* RESULTS U Z+2(LSB) AND Z+3(MSB) V 








13 


Z 


EQU 


SFB 


4 BYl-ES OK PAGE 










82 


******************************** ^^ 








14 


* 
















83 


• GET Z = (Y AND 7) + Z 


^1 








15 


START 
















84 


******************************** 








16 


»««««*««**«***<»«**********> 


****** 


cr*0: 


AD 


05 


CfJ 


85 


LDA 


VVAL 


■ 








17 


• 


HAKE SURE X < IIU 


« 


Crj63: 


29 


07 




86 


AND 


#7 


Y AND 7 ■ 








m 


•»*«««****•»*«**«***«**•* 


****** 


C065: 


18 






87 


CLC 




^ 


cm-. 


AD ')4 


CO 


19 




LDA 


XVAUl 


CHECK XVAL MSB 


am: 


65 


FD 




88 


ADC 


Z+2 


ADD TO Z -1 


CfifjB; 


PJ 13 




20 




BEQ 


OKX 


OK IF (X<256) 


am: 


85 


FD 




89 


STA 


Z+Z 


LSB i 


cm: 


A9 '){ 




21 




LDA 


11 


X ^ 255 


OitA: 


A5 


FE 




90 


LDA 


Z+3 


1 


C<f>?: 


8D 'H, 


CO 


22 




STA 


XVAL+1 


MAKE HSB-1 


C06C: 


69 


f/j 




91 


ADC 


10 


ADD CARKY M 


C012: 


AD <n 


Q<> 


23 




LDA 


XVAL 


LSB MUST BE<64 


C06E: 


85 


FE 




92 


STA 


Z+3 


MSB ■ 


COIS: 


30 04 




24 




mi 


FIXX 


FIX IF MOT 










93 


******************************** ^ 


C017: 


C9 AO 




25 




CMP 


#SAO 


LSB<64? 










94 


* GET Z - 8*INT(X/8) + Z 


^^^^B 


C019: 


30 05 




26 




BMI 


OKX 


YES 










95 


******************************** _ ^^^^ 


CfJlB: 


A9 3F 




27 


FIXX 


LDA 


#$3F 


USE MAX LSB 


C07O: 


AD 


03 


CO 


96 


LDA 


XVAL 


LSB ^^M 


C'JlD: 


.3D 03 


C) 


23 

29 


OKX 


STA 


XVAL 


NOV,' XVAL<320 


C071; 
Cj75: 


29 
18 


FS 




97 
98 


AND 
CLC 


#$F8 


8*lNT(X/8) V 








30 


*tUi*********>****X**<*>*« 


>*«•** 


C075: 


65 


FD 




99 


ADC 


Z+2 


LSB Z ~ 








31 


* 


HAKE SURE Y < 2Vj 


* 


0078: 


•95 


FD 




K/J 


STA 


Z+2 










32 


*«**»»♦♦»***»•**»*«•+***»* 


>**♦»♦ 


C07A: 


AD ')!• 


CO 


101 


LDA 


XVAL+1 


X MSB-NO CHANGE 


am: 


AD 05 


CO 


33 




LDA 


YVAL 




dill): 


65 


FE 




102 


ADC 


Z+3 


il 


om: 


10 OB 




34 




BPL 


OKY 


Y < 128 


C07F: 


85 


FE 




103 


STA 


Z+3 


MSB Z ■ 


C025: 


29 7F 




35 




AND 


«7F 


Y=Y-128 










VA 


*******^***:**n.%m**************** ^ 


Cj:7: 


C9 48 




36 




CMP 


($48 


C2'/»-12S+$4S) 










105 


• GET Z = BASE + Z 


■ 


C029: 


30 05 




37 




mi 


OXY 


Y<20fj 










K* 


**»♦***♦***♦♦+***»*+♦♦**«♦«*»♦♦♦ __^^ 


Cj2B: 


A5 C7 




38 




LDA 


199 


USE Y MAX 


am: 


AD 


'*> 


CO 


107 


LDA 


BASE 


LSB B^B 


r/i2D: 


HD 05 CO 


39 




STA 


YVAL 




i;084: 


i8 






KjS 


CLC 




^H 








40 


OKY 






SOW ■i<i\{/2ff> 


0085: 


65 


FD 




Krt 


ADC 


Z+2 


LSB Z ^^ 








41 










COS?: 


85 


KD 




110 


STA 


Z+2 


1 








42 










C089: 


AD 


07 


CO 


lU 


LDA 


BASB+1 


MSB ■ 








43 


^■aaaa 


aa «a 3, ii««ai3>a<,a»„- 


9=iz._,=l,* 


CWC; 


65 


FE 




112 


ADC 


Z+3 


MSB Z 1 








44 


* z-4f)*ce*iNTCv/e)} + a t 


VND 7) * 


OWE: 


85 


FE 




113 


STA 


Z+3 


1 








45 


* 


+ 8*IST(X/8) + BA.'iE 


* 










114 


******************************** ^ 








46 


*=.==,,. 






»Sai3SB« 










115 


* FIJiD BIT = 


7 - (X .AND 7) 


a 








47 


















116 


*4******««««******#«*********4** ^ 








48 


*************************** 


I***** 


a^r. 


AD 


03 


Oi 


m 


LDA 


XVAL 


X I^B ■ 








49 


* CET 


Z - 8*IST(lf/8) 


* 


am: 


29 


07 




lis 


AND 


#7 


(X AND 7) m 








50 


*************************** 


r***** 


CJ95: 


85 


FB 




119 


STA 


I 


SAV£ IT m 


C'lyi: 


AD 05 


CO 


51 




LDA 


YVAL 


IHUNCATE 


C097: 


A9 07 




120 


LDA 


ii 


^ 


z<m: 


29 F8 




52 




AND 


I5F8 


J LSbits 


C')99: 


38 






121 


SEC 




NORMAL Sl,iirrSACT 


C'J)'): 


S5 FB 




53 




STA 


Z 


WORK AREA 


C09A: 


E5 


FB 




122 


SBC 


z 


BIT=7-C!( AND 7) 


C037: 


A9 '/) 




54 




LDA 


10 












123 


«**********«**«*«*#***•* *****>^4* ^ 


Cfj39: 


85 FC 




55 




STA 


Z+1 


MSB-O 










124 


* SET Btr 


IN LOCATION Z 


***** ^ 








56 


******************t***t***i 


■**««• 










125 


*****«*«******«*******««**4 








57 


* Gn 


Z = 40*2 (2 BYTE qTl 


r.) • 


Cf;9C: 


AA 






126 


TAX 




filT# IN X 








58 


*****t***********t********i 


(***«* 


C'j9D: 


38 






127 


SEC 




ROTATE CARRY... 


Cj3B: 


A5 FB 




59 




LDA 


z 




Cf/9E: 


A9 


'/J 




128 


LDA 


JO 


:X TIMES INTO ij 


Cj3D: 


l.S 




60 




CLC 






COAO: 


2A 






129 


LOOP ROL 


A 


1 


C'j3E: 


2A 




61 




ROL 


A 




COAl: 


CA 






130 


Di:x 




DONE YET? ■ 


C03F: 


2h FC 




62 




ROL 


Z+1 


2*Z 


C0A2: 


10 


FC 




131 


BPL 


LOOP 


;N0 1 


C'j4I: 


2A 




63 




ROL 


A 




COAi: 


85 


FC 




132 


STA 


Z+1 


;SAVE IT " 


C'>42: 


2(> FC 




64 




ROL 


Z+1 


4»Z 


C0A6: 


AO 


Vj 




133 


LDY 


»0 


;N0 OFFSET 


CM: 


2A 




65 




ROL 


A 




C0A8: 


Bl 


FD 




134 


LDA 


(Z+2),T 


GET SCREEN BYTE 


a;45: 


26 FC 




66 




ROL 


Z+1 


8»Z 


COAA: 


05 


FC 




135 


ORA 


Z+1 


-.SET PROPER BIT 


CAT: 


85 FD 




67 




STA 


Z+2 


—LSB 8*Z— 


COAC: 


91 


FD 




136 


STA 


CZ+2>.Y 


UPDATE SCREEN 


OM: 


A5 FC 




6« 




LDA 


.^+1 




COAE: 


6'j 






137 


END RTS 






C')4B: 


a5 FE 




69 




STA 


Z+3 


—MSB 8*Z— 






















rotate the LSB of Z which is in the accumulator. The 
most significant bit which falls off the left side of the 
accumulator goes into the carry flag inside the proces- 
sor. The next ROL is performed directly on memory ad- 
dress Z+1. The carry bit is rotated into the least signif- 
icant bit position of Z-M, and all the zeroes in Z-l-1 get 
shifted one place to the left. Notice that the carry bit was 
cleared in line 60 before the process was begun. 

After three repetitions, Z and Z-l-1 store a two byte 
quantity which is eight times its original value. We will 
use this value later so it is copied into locations Z-i-2 
and Z+3 for safe keeping. Two more repetitions gives 
thirty-two times the original value of Z and Z-l-1. Lines 
75 and 80 add this quantity to the intermediate values 
at Z-I-2 and Z-l-3 and put the results into Z-I-2 and Z-l-3, 
thus giving forty times the original value of 8*INT{Y/8). 

At line 113 of the PLOT.$C.S listing, the address cor- 
responding to the pixel at location (X.Y) is stored in Z-I-2 
and Z-H3 (LSB, MSB). Lines 115-122 calculate the proper 
bit value (0 through 7) corresponding to that pixel. 

The fmal segment of the program at line 124 shifts a 
single one into the proper bit position of the accumula- 
tor. This result is ORed with the value in the selected 
bit map memory location, thereby turning on the pixel 
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addtdonaJ dlacounti appUad toward 
purctiaaaa. 

• Ractlir* our Intormatlva monthly naw*. 
I«tt*r full of halptui Upt for a*ttlng ttia 
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Th9 SoltWMrt-of'thB-Monttt Club Im Unfqua. 
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at position (X.Y). 

Calling this machine language subroutine to calculate 
and plot each point is still roughly twice as fast as using 
the BASIC subroutine in lines 400 through 430 of Listing 
1 to do the same thing. The program in Listing 1 checks 
the keyboard buffer index after each point is plotted. The 
1NKEY$ routine does not work in this bit map graphics 
mode, so a more fundamental approach was required to 
interrupt the program. Remember that if the program 
stops in bit map graphics mode, you can blindly enter 
GOTO 3(X) to return the screen to text mode. Once the 
patterns have been drawn, the program waits for any key 
to be pressed before returning to normal mode. 

The best ways to learn assembly language are to read 
books and magazine articles about it, study examples of 
programs written by others, and (most important) get an 
editor/assembler and use it. Two books that I have found 
useful are 6502 Software Gourmet Guide & Cookbook 
by Robert Findley (Scelbi) and Programming the 6502 
by Rodnay ZaLs (Sybex), 

We will wrap things up with three challenges you might 
enjoy. First, modify the CLRSCR.O listing so that it fills 
the color memory (1024 through 2023) with a specified 
color code in addition to clearing the bit map memory. 
Second, write a machine language routine to draw a line 
between endpoints specified by the user. (Perhaps start 
with horizontal and vertical lines only.) 

Third, see how quickly you can analyze this bug that 
took mc a couple of hours to eliminate. Swap the DEY 
and STA instructions in lines 24 and 25 of CLRSCR.O. 
LOOP is now the label for the STA instruction. The pro- 
gram still works almost perfectly. In fact, it works fine 
for 7999 of the 8000 bytes. Can you figure out where 
it fails? 

As a follow-up to the March Rupert Report on the DOS 
Wedge, James Borden (Carlisle. PA) sent the following 
additions and a correction. To change the disk drive num- 
ber, type @#d < RETURN > where d is the new drive 
number (8 or 9). You can paus.; a directory listing by 
tapping the space bar. Pressing it again continues the 
scrolling or pressing < RUN/STOP > stops it. Mr. Bor- 
den suggested that after pressing < RUN/STOP >, you 
may move the cursor up the left column to the line con- 
taining the desired filename and type 7", "%" or <up 
arrow > then < RETURN >. That way you may load 
and run a program without having to type its name. (You 
don't have to erase the numbers in the file size column 
either.) Mr. Borden correctly pointed out that entering 
LOAD"W",8:RUN will not automatically load and run 
the program "W". Instead of typing RUN after the colon, 
you must hold the shift key and press the 
<RUN/STOP> key. Thanks for the feedback. 

Until next month, keep those ptx>grams speeding along. 
Inject a bit of machine language into them. D 

SEE PROGRAM LISTINGS ON PAGE 89 
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BRAIPRAME 

An Exercise in Logic for the C-64 



By IMorm Vogel 



Submitted for your approval is a new version of 
the venerable logic puzzle. Mastermind 
("MM")™. I wrote the original version of this 
program when MM first came out, but since the 

advent of the C-64, it was modified extensively to take 
advantage of the 64's color and sound capabilities. The 
result is Brainframe-a. program which I feel is superior 
to other versions of this game currently available, and 
not just another number guessing game. 

After the title screen clears, the instructions are print- 
ed. The program then prompts for the number of digits 
to solve (3-5; relatively easy to very hard). When the 
number has been selected, the game begins. 

You input your guess (the RETURN key is not needed 
-if a mistake is made, hit "R" to redo), then the ma- 
chine "thinks" about your entry via changing colors and 
sounds generated by die input. It then prints its evaluation. 
During the game, various prompts and sound effects 
are used; for example, if you haven't gotten the solution 



in 10 tries (on a 3-number game), the program displays 
the message, "You haven't got it YET?!" and gives you 
a "raspberry." 

If the puzzle is solved, "Charge!" is played, along with 
the answer and number of tries, plus an evaluation of 
the game, e.g., "Not bad, but you need more practice!" 
Also shown is a "rating" system whereby you can see, 
for example, how many games you won in five tries. This 
display can handle double digits without getting physi- 
cally larger. It also displays the total number of games 
played and the number of "give-ups." (If the puzzle is 
solved in a remarkably short time, the "give-up" count 
is reduced to zero for the rest of the game.) The game 
then asks for a replay. (Note: if the "number of digits" 
is changed, the "rating system" resets itself.) D 

SEE PROGRAM LISTING ON PAGE 109 

Mastermind is a trademark of Invicta Plastics. 




For the C-64 

By Simon Edgeworth 



commodore owners 

DON'T 

THROW YOaR PRINTER OUT! 



This little program simulates the PRINTAT 
command of .some versions of BASIC. It en- 
ables you to move the cursor anywhere on the 
screen with a single command. 

The main program (lines 10-18) puts a short machine 
language program into memory, starting at location 679, 
and sets the variable AT equal to 679. 

The command SYS AT, followed by two numbers, will 
now move the cursor to any desired location on the 
screen. For example: SYS AT,8,12: PRINT"MARS" will 
print "MARS" starting at line 8. column 12. SYSAT, L,C: 
PRINT-VENUS" will print "VENUS" starting at line L, 
column C, TTie demonstration prc^ram (lines 20-48) gives 
more examples of how the command can be used. 

To use this utility in your own programs, you only need 
lines 10-18. Put them at the beginning of your program, 
and you will be able to use the new command for all 
of your screen formatting. D 

SEE PROGRAM LISTING ON PAGE 111 
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DISTRIBUTING INC 

1342BRoulf 2J Bullei, N J 



You cars now custom design 
your own printer fonts or choose 
from one of the different varieties 
already on the disk. Not only that 
but you can read in any standard 
commodore ASC II sequential 
file and change the typeface. 

All THIS PLUS: 

1 . Mix up to I 5 fonts in 
one document. 

2. Design custom fonts 
including symbols, foreign 
language, math 
symbols ecL.. 

3. Includes font to give you 
descenders on your 1525/ 
801 printer. 

4. Convert most popular word 
processing files to custom 
fonts. For special effects. 

5 Also includes the signwriter 
64 program to print signs 
and banners. MMHlf^^^B 

ACTOIT ■tO)t*lllT£R CALL^ ^^^^M' 3^^^ 

201-838-9027 

* Ke-iiuire^i t *!.*'* B^l or driy uihpr pntiier wiih 
gfdphu i ir»le»rdtttMW .)50, !y mot 
C'onnr** liijii et J i 
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MERLIN 64 

TH E BEST MACRO ASSEMBLER FOR TH E COMMODORE 64 

Easy to use for the beginner or professional. Merlin 64 is 

an extremely powerful macro assembler. 

Just a few of its features include: 

• Fast assembly times 

• Word processor like editor 

• Conditional assemblies, 
Optional assembly to disk 

• Includes Sourceror, an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

• Macro library of common 
operations 

• Cross Ref. utility program 

• 80 column display 
compatibility 

"This is the best assembler I've seen for the Commodore 64. , . " 
Wm. Sanders /Assembly Language for Kids 

". . .an outstanding value. . . 1 cant imagine how it could 

be better." 
^h A /^ A> I" ^ C Peterson /AHOY! Magazine 

«P ^T ^ • ^ •J • Mui S3.00 Shipping. CA (tel. add 6% Sales Tax. 




/^k your local dealer for details, or just wrtte or call: 
' Dimi i<;wiNr ' ihr 



PUBLISHinC/lhC. 



P.O. Box 582 •Santee, CA 9Z07I •Telephone: 619/562-3221 
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WE RENT 
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commodore ! 
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GAMES AND SOFT WARE 

♦DATABASES & UTILITIES 
♦FOREIGN LANGUAGES 
•ADVENTURE GAMES 
*ARCADE GAMES 



Call toll-free outside Texas: 1-800-433-2938 



WEDGWOOD RENTAL 

5316 Woodway Drive 
Fort Worth, Texas 76133 
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Dear Mr. Allikas: 

I have become a recent reader of /l/ioy.' I must say that 
you do an outstanding job as editor in bringing together 
a variety of informative and practical articles and fea- 
tures. Editorial matter is presented in an interesting man- 
ner with clarity and appeal to the eye. 

You are to be commended for your many contributions 
in making Ahayl a most valuable publication for the Com- 
modore user. Samuel Rabinojf, Principal 

P.S. 207, Queens, NY 

Ordinarily, we'd be too embarrassed to print such an 
overwhelmingly positive letter. But what editor could re- 
sist a letter from his elementary school principal? 

I have been an avid reader of your magazine since your 
premier issue. I enjoy it very much and get a lot of use- 
ful information from it. 

One objection I have that I feel should be brought to 
yrviir tttention are the ads from CVC Online that have 
appi.^-^- ,1 ilic last few issues. 

I am not a prude or moralist, but I do not think that 
a magazine of this quality is enhanced with advertise- 
ment of this nature. I am sure that the revenue obtained 
by accepting advertisement of this sort will be more than 
lost when circulation decreases due to those that do not 
care to have advertisement of that type put in the hands 
of their children. 

I am taking the time to write, hopefully to encourage 
you to maintain the high quality of your magazine in- 
cluding the advertising that most of your subscribers read. 

Thank you for your consideration of my observation 
and comments. I hope to remain a reader and advocate 
of your magazine. John W. Carina 

Columbia, SC 
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"Sure it's user-friendly! 
Wlto do you think bought this round?" 
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IM 




For the C- 

By Bob Spirko 




In a remote corner of the galaxy, the planet Obid 
is suddenly assailed by a meteor storm. As this 
ancient planet hurtles through a swarm of rocks, 
I its greatest city, called Im, is threatened with an- 
nihilation. A city council is hastily assembled and a de- 
cision unanimously struck: send for the Wizard of Im! 
You are the Wizard of Im. Brandishing a magic wand 
that hurls huge fireballs, you set forth to destroy the dead- 
ly cascade of rock and spare the city. Despite your pow- 
ers, however, it remains to be seen if you are quick enough 
to blast the multitude of menacing meteors before they 
fell to earth. 

Tlte Wizard of Im is a colorful action game that re- 
quires lightning reflexes. At first, you'll find it easy to 
demolish the meteors as they fall from the sky, but in 
time the speed and number of rocks increases so that 
you must work frantically to destroy them while at the 
same time keeping yourself from being struck down. 
Since 77?^' Wizard qflm is written entirely in machine 
language, you'll need Flankspeed to type it in. Run Flank- 
speed (see page 86) and enter the following hexadecimal 
numbers: 

starting address: CO 00 
ending address: C71F 

Once entered, save the program on disk or tape. Now 
reset your computer and type LOAD"WIZARD OF 
IM''.8,1 for disk or LOAD-WIZARD OF IM",!,! for tape. 
To start, enter SYS 49152. 

The screen will display a brief introduction and then 
the action begins. Use your joystick to move the wizard 
left or right, and press the fire button to release a fire- 
ball. At the bottom of the screen, your score, lives, lev- 
el, and best score are displayed. Each meteor that you 
vaporize will net you a few points or few dozen points, 
depending on the level that you are on. To your credit, 
the occasional meteor will disintegrate of its own accord 
before striking the ground. However, meteors that elude 
your fireballs and reach the earth will cost you points 
(except on the first level). 

As you progress through the levels, the meteors appear 
more often and move faster. In time, the screen becomes 
so congested with hurtling rock that moving the wizard 



safely becomes difficult. %u11 notice, too, that some lev- 
els are more formidable than others. This is because the 
value of each rock is increased with each level and then 
reset. This means that some levels will take longer to 
get through than others, but once through these the next 
few levels will be quicker. 

Like all good wizards, you have three lives. Should 
you be struck by a meteor you will lose one life. Thrice 
killed, the action stops and you can start over by press- 
ing any key. During the play itself you can reset the game 
by pressing f7, or you can exist back to BASIC with f8. 
To pause at any time press the SHIFT-LOCK key. D 
SEE PROGRAM LISTING ON PAGE 98 
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; BridgePro®; 



BridgePro is the firsi program I've seen that provides a challenge 
for the average-to-excellenf bridge player The documentation is 
excellent and allows a new bridge player to learn the basics. 
—Harvey Bernstein, Antic Magazine. Feb. 1985 

After having tried three other bridge programs. I find that BridgePro 
is indeed a pro game- . (t is designed for both the beginner and the 
advanced player. . . J didnl find anything that could be improved upon. 
-Helen Garret. Apple-Dayton Journal. March 1985 

If you like to play bridge and dont have three other players ever- 
eager to play, this software is a must. For bridge freaks its good 

enough to justify buying a computer 
. . , Whether you are a "master" or a 
beginner, this Is great software. 
-Christian Basler. NY 
Commodore Users Group 
^\ 4 ^ Review. Sept. 1984 

^ Jain 




Jain us 

tor Bridge 



BridgePro is designed to let you learn, 
improve, or just enjoy the card game of 
bridge. The program provides com- 
plete bidding, play and scoring tor 1 or 
2 players. Features include random 
hands, bidding help, demonstration 
mode, hand replay/quil. best hand, 
auto finish, duplicate mode, and fast 
machine language speed. 



^ Q K CA Readents add S2 28 Sales Tax 
^^J^ Add I? for COD/UPS 2nd Day Air 
DISK VI SA/l^asterCard Welcomed 

Commodore 64 • Atari 
Apple It • IBM PC/PCjr 



48 htour Free Shipping 
(4151930-8075 

Computer Management Corp. 

24Z4 Exbourne Ct 

Walnul Creek. CA 94596 

Dealer Inquiries Invited 
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D-Compiler ^59.95 



\ 



The first D-Compiler to give you back your source code 
after your program has been compiled with 'Blitz. 



'BliU IS • Iridsmark d( Skyin ElKtnc Work! 



1541 Super ROM 



»39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 10 Second Format with Verify 



also Save with Replace is 
Improved 




• Two times faster. Eight times faster 
when used with Turbo 64 which is included 
• No more Drive Head rattling 
during Format or Error Reading * 1541 Super ROM is 100% Compatible • Easily installed in Mnufes 



J^P j\LLO COPIES IT ALL 



APALLO Does it All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and nfiore. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 

At last a complete utility package tor the MSD Dual Drive. This 
is the first MSD utility program that does it all. The main 



Copy Protected Disk 
Copy Files 
Format a Disk 
Change Disk Name 
Quit 



Copy Unprotected Disk 
Scratch a File 
Rename a File 
View Directory 



$3995 



menu options include: 



Sure Copy will put all errors automatically on disk: 20. 21. 23. 27 and 29's. 



D-CODER 



• Translates any machine language program into easy- 
to-read English descnptions witti complete explana- 
tions of eacfi command' 

• Makes complete notations ol all imoonant memory 
locations accessed by ttie program! (SID. VIC. MOS. 
KERNAL. etc I 

• Gives you ttiree ways of accessing programs 

1) Will raid and list programs Irom DISK 

2) Will raad and titi pnoramt Irom MEMORYI 

3) OlrscI user Input (Irom magazines, etc ) 

• Can be used to locate ant] examine any machine 
lariguage programs protection foutines' 

• Can be used to easily Ureak apart machme language 
programs tor study and examination! 

• Pnnter option for complete tiard copy listings' 

You no longer 
need to be an i - <v 
ft^AQ^ EGGHEAD to I ^^ 

I ^7 read Machine 

Language. 




N-CODER M9.95 




the machine 
language manipulator... 

The peiiect companion 
program to D-CODER! 



Allows you to easily make changes m ma- 
chine language programs right on the disk! 

• Rewrite ability allows code 10 Sye altered 
and then rewritten directly to the disk' 

• Features sector-by-sector scrolling 
assembly language display ol machine 
language programs' 

• Notation of ASCII text equibalents tor easy 
spotting ol embedded !ext strings! 

• Handy reference display of all assembly 
language commands and their fM 
numerical equivalents! 

• Byte splitter lor easy splitting of der.imat 
addresses into low byte-high byia mat! 



Super Loader 



Super Loader is a Kartrtdge that plugs into 
your expansion port, that allows the 
computer, on power up start thedisk drive 
and load the first preselected program on 
the disk. 



• Change colors 

• Load wedge 

• Works with more drive 

• Takes up no memory 

• Reset switch included 






Only 



$29 



95 



•H 




This Disk has over 100 routines, 
some of them are routines for 
protection, smooth scrooling, modem 
routines, and sound and color 



routines. They can easily be 
incorporated into all of your programs. 
It is also fully documented 



M9.95 



Slik Load 



$29 95 

Slik Load is a Kartridge for the C-64. w ■ *#*# 

Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 
The options include: 

• B timai faftar load • Status hay will glva you information on 

• Elitninatai driva rattia whan arror* davice numbar, bytat fraa and atatut of tha 
ara arvcountarad. driva. 

• Old and un-naw • Silh Load ii also fully compatibia with tha 
Will rettor* ■ bawc program 1541 Super Rom 





$19.95 



OUS-£rron ?0. 21. 22. 23. 27 A 29 

Formal Singls Trickt 

Re«d Dish Errors 
% Tracit RMKl*r-rBscl and Hlficl ^^ track 
'/i Track FormBt1»r-Formal a disk with 'fi 
tracks This ts wham Iha riaxi proleciiori< 
schiemas ara comtnp fronrv 
Orlva Mon-Dtsk Dnva BU«mbJ«r/dis- 
assambJar For your ISAI 
Tha Ooc-Oisk Doctor thai reads code 
under errors 

Sync Uakar-Place a sync mark on any 
track out 10 41 Aliso yse<l for proiocliOn 



Sync R«*d*r-ChKk for Sync tuts or> any 

track out 10 41 

Changa Driva No.-Cnanges driva 

numb*/ (7-30) 

£>lak tooe*r-Finds siBMina (rack sector. 

Stan and ertd addrassas 

DIak Malch- Compare ariy iwo diskattas 

Bvta for byta 

Naw WaHg^a-Eastar to i»« DOS wadfle 

ID Chack-Check IDs on any traci> 

Unacratch>f^es(ore a scratched liie 

ViawBAM-Visual disptay of thafraaand 

usfld saclors on a diakeiia 



Haad/Wrtia Taal- i&4l partorrr^aoc* last 
Rapair a Track-Repair a track with 
ctiecksum errors Raads coda unMr 
errors anet rattores track 
Faat Fonnil-Formai a disk in |i»t ID 
saconOi (wUh vanfy') 



This is the only utility 
of its kind . It even has 
a 3 min. copy on it. 



WAR GAMES 
AUTODIALER 




-r 



1-Auto Dial will auttimaiically di^i a set oi numb€rs you choose 
2--nvvJeMr NumlMfs will review r^ufnbers that ware answered by a computer 
3-Stve Number* wilf save numbers where a computer answered 
A-Htrdcopy of Numbers will pnni oul list of numbers whsr? a computer answered 
5-LOAD Numbera will load m numbers to contmue where it left oH 
G-Coritinue will pick up drahng where il was mierrupief? 



«29.95 



EDFimRRE. 
•HRNDBDDH 
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Edition 



THIRD EDITtON! NOW AVAILABLE! 
tf youre tired ot being narassed by protected tonware ant) too many copy 
programs. Ihen Ihis is ihe book tor you' This 224 page manual covers IhB 
gamoil from legaliltes lo protection meinods to siec-Sy-step back up pro- 
cedures Now you can leafn botti how to protect and unprotecl software' 
The tectiniques covered include copying cartridges lo tape or disk, tape pro- 
leciion. and disk proleclion Disk protection covers error no s 20, 21 . 22. 23. 
27 and 29 plus single track formatting, header modification, header swapp- 
ing . halt trac k readirig and writing , reading and wntmg modified bit densities, 
formatting illegal iracks/sedors. sync writing and more! The Third edition ex- 
plains, tells how 10 delect and how to write them with included software 
Eleven useful utilities and many protection listings' Our disk analysis programs 
reveal the protection methods used on your originals A diskette with all soft- 
ware >s available (or a minimum extra charge This may not be the only book 
your should have (or the C-64, but il is certainly the one book you should 
not be wtthout! 

C64 Book only S1995 US 

Book & Disk o( all programs $29 95 US 

Vic 20 book Can. & Tapes only $9 95 uS 

THIS MANUAL DOES NOT CONDONE PIRACY 
•SHIPPING: J2 00 



KARTRIDGE KRACKER 

wo W you can own this unique and powerful tool 
which will allow you to dump Ihe contents of 8K 
and t6K cartridges onto disk! But what's really 
great is that you can also RUN the canndges pro- 
grams without plugging m the cartridge! the 
KRACKER gets YOU INSIDE the cartridge' Put 
all your favorites on disk and get rid ot the clut- 
ter This package provkies your with the software 
and hardware needed (o get started. Program on 
disk included. (Some canndges require use ol ex- 
ternal RAM not included) 




$44.95 



TOP SECRET STUFF II 

All CI 28 Compatible 



split Screens (Horizontally) 
Smooth Scrolling 
Save Ram From Under Roms 
No Drive Rattle On Errors 
Triple Drive Head Speed 
Autoboot Maker 
Koala Screen DUmp 
Display GCR 
Fast Disk Eraser 



Protect Scheme For Your Disks 

Write Protect Disk 

Unwhte Protect Disk 

Mini DOS Wedge 

Fast Diskmatcher 

Data Statement Maker 

Unnew 

3 Minute Copy 

DM.S 



If you have TSS#1, You'll $-1Q95 

Like This One! All on one disk I y 



Bulletin Board 

Ser up tndopsratt your own bulfahn Oonrdwdh on« 
Of two disk an¥*s Thif on9 rtat all ina totluru and 
you cnn cuslamita tt atitly yoursatl 

1-HUN MEGASOFT-BBS 

! CREATE MEGA FILES 

3ADD TO SVSOP S CORNER 

4 New SYSOPS CORNER 

5 READ MESSAGES 
6SCHATCH MESSAGE 
7 CVCLE MESSAGES 

*59.95 Qgg 

• Leveled Access 

• Private Message Base 

• Up to 300 Passwords 



8H£A0 SVSOP MESSAGES 
9--WRITE OPENING MESSAGE 
10-REAO LOG 

1 1 CYCLE LOG 

12 HEAD DOWNLOAD FILE 

1 3 SCRATCH DOWNLOAD FH.C 

14 ADD TO OTHER SYSTEMS 
ISCREATE OTHER SYSTEMS 




Expert Mode 

Open Chalk Board for 

Highest Level Access 



ERCioie Cashie's Cnech Money Oioef oi Personal 

Cnock Alio* 14 days lof (Jel'verv 2 r<i 7 Oay* tor 
phone ofderK Canaaa oifleri musi De m u S 
Ooliais VISA - MASTER CARD -COD 



s MegaSoft 



Programs tof C-6d 



S2 DO S & H on ail oraer& 




Limited 



SoflwHi fiubmiHiont Inviied. 



P O Box 1080. Battle Ground, Washington 98604 

Phone (206) 687-5H6 • BBS 687-5205 An»r mou-s Compiiwr to Comput.. 
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PRINT SHOP 



he Print Shop from Bro- 
derbund is a multipurpose 
graphic utility which turns 
the Commodore 64 with 
dot matrix printer into an all-purpose 
greeting card, banner, and poster 





generator. It is one of the best thought 
out, easiest to use packages Tve come 
across for the Commodore 64. It is 
so easy to use, in feet, that I was able 
to generate my first greeting cards 
without once referring to the manual. 
The manual, by the way, is a well- 
written, 28 page, 8'/2 x 11" softcover 
book. It does a thorough job of de- 
scribing The Print Shop's, numerous 
features. To help get you started, the 
numerous illustrations are a source 
of inspiration. 

WHAT IT DOES 

The Print Shop is a collection of 
integrated programs that will allow 
your Commodore 64 to perform 
many of the services heretofore 
farmed out to your local printery. 
These consist of; 

1. Greeting card generator— turns 
a sheet of paper into a quarter-folded 
missive, complete with messages on 
the ftont and inside as well as a cred- 
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it line on the back (Hallmark, move 
over). 

2. Sign printer— sure to be wel- 
comed by many a small business, as 
it saves hours with a stencil. These 
single sheet displays have become all 
the rage at the local computer fairs 
and flea markets. 

3. Letterhead generator— allows 
you to create fully illustrated custom- 
ized stationery. 

4. Banner printer. 

5. Kaleidoscope generator, com- 
plete with bit map screen dump. 

GREETING CARDS 
GALORE 

The greeting card generator will 
most likely be the first part of this 
package you will try out. As with all 
the routines, a set of menus takes you 
through the entire process. 

First you may choose one of nine 
possible borders or none at all. The 
borders range from simple lines 
through flowers and lattice work. 
Next you may choose a graphic im- 
age to dress up the card. Fifty pic- 
tures and ten patterns are provided on 
the program disk. The graphics may 
be selected by number off the handy 
reference card included with the 
package. If you cannot bear to tear 
your eyes from the screen, the pro- 
gram will prompt you with the names 
of all the prepackaged graphics. If 
none of the provided graphics suit 
your taste, a rudimentary graphics ed- 
itor lets you design your own (more 
on this later). 

If you do select a graphic, you are 
asked to choose from a small, medi- 
um, or large image. If you select one 
of the smaller sizes you will have the 
choice of both l^out and number of 



images. Only one graphic may be 
used for a given part of the card. The 
graphics cannot be mixed on the 
same page of the card. The image 
may be used only once, or repeated 
up to 35 times to form a solid back- 



I 



m m Mi 




s 

2 

% 
2 
^ 
^ 
^ 



ground. Different graphics may be 
selected for the front atid the inside 
of the card. The large graphic may 
be printed only once in the center of 
the card. 

One of eight font styles are avail- 
able for your message. These fonts 
range from an elaborate Alexia to a 
simple Block style. Individual text 
lines can be printed out in one of two 
sizes using solid, outline, or 3-D let- 
tering with any of the fonts. Fonts 
cannot be mixed on the same page 
of the card, although different fonts 
may be selected for the inside and the 
front of the card. The more complex 
styles take up more space, which lim- 
its the size of the message. The 
amount of text available ranges from 



The Print Shop cannot actually produce fall color graphics like those 
shown here —Art Director JoAnn Case just could not resist coloring them 
in. All are reductions of dumps from various Print Shop utilities, includ- 
ing the greeting card generator, the sign printer, and (at bottom of page 
51) the banner printer— the original of which is over five feet long. 
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By Morton Kevelson 

a maximum of 14 lines by 26 charac- 
ters in the single sized Stencil font to 
a minimum of 4 lines by 8 charac- 
ters in the double sized Alexia font. 
Individual lines may be centered or 
left or right justified. 
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The entire creation process is re- 
peated for the inside of the card. The 
final step is an optional fifty six char- 
acter credit line for the back of the 
card. 

Actually, there is no need to fol- 
low the prompts in the order pre- 
sented. The program allows for easy 
movement back and forth through the 
menus. The only thing to watch out 
for is the font selection process. If 
you scroll through any of the larger 
fonts or change the size of the text 
lines, any part of the message which 
no longer fits will be lost even if you 
reselect a smaller font. 

PRINTOUT 

The heart of the program is a very 
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sophisticated print routine which is 
customized for your specific printer. 
Two versions of the program are pro- 
vided. The back of the disk contains 
the Commodore 1525/MPS-801 ver- 
sion. The front of the disk supports 
a variety of popular printers includ- 
ing those made by Epson, Star Mi- 
cronics, Panasonic, C-Itoh, Legend, 
NEC, Mannesman Tally, Blue Chip, 
and Okidata. A customizing routine 
modifies the original program disk, 
after which a write protect tab should 
be installed. 

The entire ZVi x 11" surface is used 
for the greeting card. The paper may 
be precisely positioned by a test rou- 
tine which advances the paper in 
1/72" increments till a dotted line is 
printed precisely on the perforation. 
When printing is complete, you sim- 
ply fold the paper twice to complete 
the card. 

The printout process is rather long, 
about eight minutes with a Gemini 
lOX. A colorftil animated display lets 
you know that all is well with the 
printer, program, and computer. The 
display message alternates between 
"thinking" and "printing" while the 
operation is taking place. Consider- 
able disk access occurs during the 
printing process, as The Print Shop 
recalls data on the type fonts and 
graphic images. 

SIGNS 

The sign utility lets you create a 
full page sign for just about any an- 
nouncement. The creation process is 
very similar to the above. Text space 
ranges from a maximum of 14 lines 
by 26 characters to a minimum of 4 
lines by 8 characters, depending on 
font and size. 



LETTERHEADS 

The letterhead utility lets you de- 
sign customized stationery. Both a 
header and a footer can be created. 
Each consists of a 32 character line 
in your choice of font with three addi- 
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tional 63 character text lines. A hor- 
izontal separator line may be used to 
segregate the header or footer from 
the rest of the page. Graphics m^ be 
incorporated in die letterhead design. 

BANNER 

Need a long sign with eight inch 
high letters? The Print Shop banner 
utility fills the bill. There is no limit 
to the length of the message, as re- 
peated applications are possible. This 
also allows for the mixing of fonts, 
as well as a variety of graphics on a 
single banner. Just keep a plentiful 
supply of printer ribbons and time if 
you plan to indulge. Roll paper is a 
definite plus for this application. 





GRAPHIC EDITOR 

For those finicky souls who can- 
not find a suitable graphic among the 
60 with the package, the graphic edi- 
tor lets you modify or create your 
own. This rudimentary utility is a far 
cry from the sophisticated packages 
I looked at in the October and No- 
vember issues of Aho}'!, but it does 
the job. The 88 by 53 dot sketch pad 
(44 by 45 dots on the 1525/MPS-801 




version) occupies about half the 
screen. Input is accepted from a 
touch tablet (best), a joystick or track- 
ball (good), or the keyboard (fair). 
The main problem with keyboard en- 
try is the lack of automatic repeat 
with the cursor keys. 

The editor allows for the placement 
and removal of dots or clearing of the 
drawing screen. No other features, 
such as geometries, fills, or block 
moves, are supported. The cursor co- 
ordinates are continuously displayed 
at the bottom of the screen. This will 
allow you to plot out the entire im- 
age on graph paper beforehand. Trac- 
ing a picture on a suitably scaled grid 
might be a good way to start. Graph- 
ics may be saved to disk for recall by 
the other parts of the package. A 
graphic file only occupies three disk 
blocks (two disk blocks for the 1525/ 
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MPS-801 version). Thus up to 144 
graphics, the capacity of the 1541 disk 
directory, may be stored on a disk. 

PRINT SHOP TO BIT MAP 
CONVERTOR 

The graphic editor has its own 
unique file format for storing the bit 
mapped image. The Print Shop to Bit 
Map Convenor program on page 88 
of this issue will transfer a part of a 
Commodore 64 standard bit map file 
into the graphic editor format and 
vice versa. The program is set up to 
work with DOODLE! files and the 
non-Commodore Print Shop files. 
When going from DOODLE! to Print 
Shop, a small portion is extracted 
from the upper left hand comer of the 
DOODLE! image. In the opposite di- 
rection, the same size image is pro- 
duced with the addition of a one pix- 
el border. This will allow the ex- 
tended features of the DOODLE! 
package to be used for the creation 
of Print Shop graphics. 

SCREEN MAGIC 

This is a unique high resolution bit 
mapped four quadrant kaleidoscope 
generator. Two basic patterns are 
generated. The first pattern has ele- 
ven possible variations. Once started, 
the images vary continuously in an 
almost hypnotic fashion. When you 
spot a particularly pleasing pattern, 
strike the RETURN key to fi-eeze the 
display. 



As with all the other Print Shop 
utilities, a message using any of the 
fonts may be superimposed on the bit 
map. Message capacity varies from 
8 lines by 22 characters to 2 lines by 
6 characters, depending on font and 
character size. The text m^ be modi- 
fied without affecting the original un- 
derlying image for as long as you do 
not save or print the display. Thus, 
it would be a good idea to save the 




image to disk before experimenting 
with text. The resulting printout fills 
about a half of a page. 

DOODLE! TO SCREEN 
MAGIC 

According to the Print Shop manu- 
al, the Screen Magic images are not 
compatible with other Commodore 
graphic packages. Not any longer. 
Michael Beutjer, author of Koala 
Printer, has provided a program to 
convert between Screen Magic and 
DOODLE! format. This will allow 
you to color in or print out a Screen 
Magic image with the DOODLE! 
package. The DOODLE! screen 
dump yields an image which is ei- 
ther half the size or twice as large as 
the Screen Magic dump. See the 
Screen Magic to DOODLE! Conver- 
tor on page 88 of this issue. 



THINGS I WOULD LIKE 
TO SEE 

Several needed enhancements to 
the Print Shop package come to 
mind. The abiUty to save a greeting 
card design would be appreciated. 
Although the creation process is only 
a few minutes, being able to recall a 
saved card would avoid spelling er- 
rors and typos. 

How about a mail merge utility? 
This would permit the lengthy print- 
ing process to be left as the last step 
after all your cards have been crea- 
ted. Convenient customization for 
that truly personal touch could be 
readily implemented, 

A font editor would make a nice 
enhancement. If nothing else, this 
would allow the Print Shop to "learn" 
other languages. 

Some musical accompaniment 
would turn the Kaleidoscope utility 
into a really effective display. Just im- 
agine what the effect of a wall fiill 
of displays with the right sound would 
be like. 

Last, but not least, a sophisticated 
graphic editor would be most appre- 
ciated. 

CONCLUSIONS 

JJie Print Shop is destined to be- 
come one of the most popular pack- 
ages for the Commodore 64. Its ease 
of use and wide ranging utility will 
make it a must-have for most users. 
The suggested enhancements I have 
mentioned above in no way detract 
from the quality of the package as it 
is presently supplied. I predict that 
the popularity of this package will 
lead to many of these features, either 
directly from Broderbund or from 
outside sources. D 

Broderbund Software, 17 Paul 
Drive, San Rafeel, CA 94903 (phone: 
415^79-1170) 
SEE PROGRAM USTINGS ON PAGE 88 



See the Reader Sfirvice Card located 
between pages 66 and 67 for morfe 
informotion on products advertised 
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In light of the money given 
away every week by the State 
Lottery Commission, I fig- 
I ured I could increase my 

chances of picking out the six num- 
bers it would take to pick up the 
bucks if I had some way of keeping 
record of the numbers already chosen. 
Armed only with my trusty C-64 and 
programming skills, I set out to ac- 
complish this task. After about five 
weeks of trial, error, and debugging, 
I finally came up with a finished pro- 
gram that will store all the past lot- 
tery numbers which have been cho- 
sen, display all possible numbers (de- 
pending on state) and the amount of 
times each has been chosen, and pick 
out the six numbers which have been 
most frequently chosen. 

Now don't get me wrong, this pro- 
gram will not pick out the six num- 
bers you need to win, but I figure the 
more information you have about 
something the more easily you can 
make an intelligent choice. 

Operation of the program is feirly 
simple. Once past the title screen, 
you work from a main menu. When 
first starting your numbers collection, 
use the #2 selection "ENTER NEW 
NUMBERS". You will be prompted 
through the six digits required. The 
program will then display all 44 num- 
bers. In the beginning a lot of zeroes 
will show on the screen, but this will 
change after a few weeks. You will 
then be asked to press "fl" for the six 
most common numbers selected. 
These are the numbers from which 
you can select your six choices. Af- 
ter the first time you use the program, 
you must select the first option 
"LOAD NUMBER FILE" to load the 
old numbers before you add your lat- 
est entries. One more note: always 
end your program with the #5 selec- 
tion "END SESSION". This updates 
your file and ends the program. 

Lucky Lottery will only work with 
a disk drive. I hope you enjoy using 
it as much as I enjoyed programming 
it. And please, if any of you hit the 
lottery using my program, don't forget 
to cut me in, D 
SEE PROGRAM USTING ON PAGE IB 



By Bob Lloret 
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top: Natalie by 
Wayne Schmidi (New York, NY), 

created on DOODLE!; Dmgon 
by Brian Glover (New York, NY), 

also on DOODLE!; front and 
back views of Garfield by Heni\ 
Ho. rendered on Sorcerer's 
Apprentice; and Polly Winna 
Cmckii by V/ayne Schmidt, 
using Rexidraw. Contrib- 
utors to Ahoy!'s Art Gallery, 
will receive royalties based 
on the sale of disks con- 
taining the best computer 
graphics received, both 
published and unpub- 
lished. Send your best 
work on disk, acconi- ' 
panied by a stamped and 
self-addressed mailer, to Morton 
Kevelson, P.O. Box 260, Homecrest 
Station, Brooklyn, NY 11229. Indicate die drawing package that was used to create the image. If you employed a bit map 
of your own design, indicate the appropriate file parameters, i.e., hi-res or multicolor, location of bit map, screen and color data. 








Quality For Your Commodore 64 

ORDER BY PHONE AND WE PAY FOR YOUR CALL! 

TO ORDER CALL 612 922-0516 $1.50 OFF EVERY PHONE ORDER 

The fastest, most reliable and easiesl-to-use copy 
prograam for the Commodore 64'". 

■ Contains a TRUE INTELLIGENT NIBBLER which 
copies all the information on a disk and even the 
newest copy protection including half tracks and 
track 36 + 

■ FULLYAUTOMATICIThere are no parameters to set. 
You don't even need to swap disks when using two 
drives. 

■ REVIRGINS DISKS rather than erasing them, and 
also contains a utility that automatically backs up 
any data disk and removes all data errors in just two 
minutes. 

NOW ONLY $39.95 

Seven day money back guaranteed. 

a-maDEm 

The 100% 1650 compatible modem. Order it with 
Q-Term and get both for only $69.95 
Seven day money back guaranteed, 

STAR SG-10 " printer 
with GPC ONLY $339.00 

star SG-10 features; 

■ 120 CPS bidirectional-logic seeking printer 

■ Full graphic-word processing features! 

■ Near letter quality mode! 



The printer enhancer and full spooling buffer for the 
Commodore 64'". 

■ Gives you control of your printer while printing 

■ Enhances the speed of your printer 

■ Provides the 1525 and 801 printers with true 
descenders and underlining 

SPECIAL $19.95 

DTERm 



Furiy Menu Driven 



completely supports 



■ Auto Answer - Auto Dial 
modems of this type 

■ On Line Printing - enables you to print while the 
computer is in terminal session 

■ Full uploading and downloading - enables you to 
send files to and from the disk over the phone 

NOW ONLY $29.95 

GRAPHIC PNNTCR CAD1£ 

The Grapfiic Printer Cable is the truly universal 
graphic parallel printer interface for the Commodore 
64", S X 64'", and Vic-20'" computers. 

■ For virtually all Centronics-Parallel Dot Matrix 
Printers 

■ An intelligent 2k buffer is standard 

■ Software Configurable allowing Commodore'" 
printer emulation 

External printer selection switches 

NOW ONLY $89.95 




4520 Excelsior Blvd. 

Minneapolis, MN 55416 

(612) 922-0516 

Reader Service No. 1 57 



COMMODORE 64 

• with $19.95 Software Purchas* 

• irOK Difk Drive »149.00 * 

• Tractor Friction Printor t1S9.M 

• 13" Hi-R«i Color Monitor «179.M * 



COMPUTER AND SOFTWARE 



SALE 



CALL B PRICES 

BEFORE ■ MAY 

YOU ■ BE 

ORDER ■ LOWER 



SPECIAL SOFTWARE COUPON 



C128 COMMODORE 
COMPUTER 

(Coming Soon — Order Now) 




• Computer Learning Pad $37.f 5 

• Voice Synthesizer $49.00 

• 13" Green or Amber KAonitor S79.9S 

• 13" Daisy Wlieel Printer S199.00 



• COMMODORE M COMPUTER %^3iM 

You poy only SIN. 00 (wilh Ihe $1?.')5 software 
purchote. see below) when you order the powerti^l 
BIK COUWOOORE 64 COMPUTER I LESS the volue ot 
the SPECIAL SOFTWARE DISCOUNT COUPON we pock 
with your computer that allows you to SAVE OVER 
SSOO olf so<twore sole prices! I With only SIOO ol 
sovirigs applied, your net computer cost 4s S39.00! ) 

* ir*K DISK DRIVE tUt.M 

You pay only SI49.00 (with the S19.95 loftwore 
purchose. see below) when you order the I70K Disk 
Diivel LESS the value o< the SPECIAL SOFTWARE 
DISCOUNT COUPON we pock with your disk drive that 
Allows you to SAVE OVER SSOD off software sole 
prices!' With only SIOO of sovings opplied. your net 
disk drive cost is S49.00 

• 11" HI-RES COIOR MONITOR tITt.M 

You poy only t179.00 (with the S19.9S soflwore 
purchase, see below) when you order this 13" COLOR 
MONITOR with sharper ono clearer resolution than 
ony other color monitors we have tested' LESS value 
o» the SPECIAL SOFTWARE DISCOUNT COUPON we 
pack with your monitor that allows you to sove over 
SMC oil software sole prices! I With only SIOO ol 
savings applied, your net color monitor cost is only 
S79,00. (16 Colors) 

W COLUMN M CPS 
TRACTION/FRiaiON IMIINTER tISt.OO 

You pay only $1 S9.00 when you order the Comstor T F 
deluxe line printer thol prints SSxll lull size, single 
sheet, roll or fon told paper, labels, etc. tmpaci dot 
matrix, bidirectional. LESS the volue of the SPECIAL 
SOFTWARE DISCOUNT COUPON we pock with your 
printer thai ollows you to SAVE OVER J500 off 
software sole prices! ! With only SIOO ol sovings 
opplied your net printer cost is onlyS59.00. 

IS COLUMN BOARD tTt.H 

Now you program 80 COLUMNS on the screen of one 
lime! Converis your Corrimodore 6* to &0 COLUMNS 
when you plug in the BO COLUMN EXPANSION 
BOARD! ! PLUS 4 slot expander ond word processor! 

H COLUMNS IN COLOR 
FAPf RRACK WRITIR M WORD PROCESSOR t».N 

This PAPERBACK WRITER 64 WORD PROCESSOR is the 
finest avoiloble lor the COMMODORE 64 computer! 
The ULTIMATE FOR PROFESSIONAL Word Processing. 
DISPLAYS 40 or SO COLUMNS IN COLOR or block ond 
while! Simple to operate, powerful text editing . 
complete cursor and insert delete key controls line 
and porogroph insertion, outomatic deletion, 
centering, morgin sellings and output to all printers! 
Lisi S99.00 SALE l».H Coupon J79.9S 



W« pack a SPfCIAL SOFTWAH DISCOUNT 
COUKm with avary COMMODORE 44 
COMPUTER, DISK DDIVE. PRINTER, or 
MONITOR ws ••III This coupon allowi you 
to SAVE OVER »SM OFF SALE PRICESIl 



(Examplttf) 

PROFESSIONAL SOFTWARE 

COMMODORE 64 



Name 


lilt 


Sale 


Ceupen 


Paperbock Writer 64 


iit.oo 


$39. DO 


$2995 


Poparbock Ooto Base 


S69 00 


$3*95 


$24 95 


PopertMick Dictionary 


S24.4S 


SU,95 


$10.00 


Procllcolc II 


$69 9S 


$i9 95 


$44.95 


Prim Sliop IDisk) 


S44.4!> 


532 95 


$26 95 


Procticok 


$59 9S 


$3i 95 


$1995 


Progrommers Reference 


$20 9$ 


$16.95 


$12.50 


Ouide 








Progrommeri Helper 


$59 »S 


$39 95 


$19.95 


(Disk) 








do Column Screen (Dish) 


$59 95 


$29 95 


$19.95 


Disk Filer (by FlipN-Filel 


$39 9S 


$14 95 


$12.95 


Dalvxe Tope Cassette 


$89 00 


$44 95 


$34 95 


Pro Joy Stick 


$1995 


$13,95 


$1000 


Light Pen 


$39 95 


$tJ 95 


$ 9 95 


Dust Cover 


$ 6 95 


$ 4.95 


t 4.60 


Simons Boiic 


$19 95 


$32 95 


$19.95 


Pilitop II Epyn 


$39 95 


$24 95 


$19.95 


Super Graphics Expander 


SJ9.9i 


$32 95 


$19 95 


Music Cole 1 


SS9 95 


$29 95 


$31.95 


Filewnter 


SS9 95 


$29 95 


$2i 95 



(See over 100 coupon items in our catalog) 

Writ* or call for 

ISampU SPECIAL SOFTWARE COUPONl I 



ATTENTION 

Computer Clubs 

We Offer Big Volume Diseountt 
CALL TODAY! 



*The t19.95 Software Purchase Options 



1. 24 Program Bonus Pock (lope or disk) 

2. Oil Borrons. Strategy Board (jome 

3. Disk Drive Cleoner 
> H£S Gomel (diikl 

5. Pogo Joe (lope or disk) 



LIST 
$29 95 
$i9 95 
$29.95 
$29 95 
$29 9i 



SALE 

«1t.t$ 
•It.tl 
tit.tl 
»T».« 



* C12* COMMODORE COMPUTER I3f f .M 

We expect a limired supply Ihe l«i week in July We 
wili ship on a ^lirsl order bosis. This a II new 
fevdlufionory 128K eompuler uses oil Commodore iy* 
software and accessories plus all CPM programs 
lormalled for Ihe diik drive. 
LisiS34<7.00. SAlEtSffeH. 

SUPtR AUTO DIAL MODfM »»«.»• I 

Easy to use. Jtisl plug inio your Commodore 64 ! 
computer and yoM re ready tQ tron$mif and receive 
messages. Easier to use than dioling your telephone, 
lusi pu&h one key on your computer^ Includes 
exclusive eosy to use program for up and down 
loading lo printer and disk drives. §*tt in U.S.A. 
ListSl29.00SALEI3l.M 

COMPUTER LIARNING PAD %Z7M 

Mokes other grophics roblets obsolete. This TECH 
SKETCH lEAR^JING PAD oitows you to draw on your 
T.V. or Monitor ond then you con print whatever you 
draw Oil the screen on your prmters FANTASTIC!! ' 
list S79.9S SALt U7,tS 

VOICE SYNTHESIZER »4f .00 

For ComrTtixlore-64 computers. Just plug it in and you 
can progrom words and senfences, adjust volume orid 
pilch, make lolking adventure gomes, sound action 
gomes ond customized talkiesM FOR ONLY i\9,9f, you 
con odd TEXT TO SPEECH, just type a word and heor 
your computer totk - ADD SOUND TO ■ZORK . SCOTT 
AOAWS AND OTHER ADVENTURE GAMES' ' 
(Disk or lope.] 

12'' GREEN OR AMBER MONITOR «7f etS 

Your choice of green or amber screen monitor, (op 
quoMty. 80 columns k 24 lines, eosy to reod. anti- 
glare! PLUS S9,95 for connecling cobk. Com-6J or 
VIC-30. 

PRINTER/TYPEWRITER COMBINATION %U^M 

"JUKI" Superb letter quolity. doisy wheel 
printer lypewriter combination. Two mochines in one 
— just a flick of the switch t3 extra large carriage, 
typewriter keyboard, automotic margin control and 
Telocote key. drop in cassette ribbon! (90 day 
warranty) Centronics porallel or RS233 serial port built 
in (Specify), List S349.00. SALE n49.N. (Ltd, Qty,) 

CARDCO G + INTERFACE SSt.OO 

for Commodore fr4 ond Vic 20 compuPers. lets you use 
other printers with Centronics interfaces. This 
inteHace lets the printer act like o Commodore printer 
including printing the Commodore graphics (Dot 
molriK with graphic copobility printcrrs}. 
List »I09,00 SALE $5V.M. 



I* LOWEST PRICES « 15 DAY FREE TRIAL 
• REST SERVICE IN U.S^A. • ONE DAY EXf>RE$S MAIL 



PHONE ORDERS 

8 a.rn. - 8 p.m. Weekciays 
9 o.m. 12 noon Saturdays 



• to DAY FREE REPLACEMENT WARRANTT 
• OVER MM PROGRAMS • FREE CATALOGS 



Add SIO.OO for shipping, handlingi ond insurance. Illinois residents 
please odd 6'/. tax. Add $30.00 lor CANADA, PUERTO RICO. HAWAII. 
AlASKA. APO-FPO orders. Conodion orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANAOA. 
Enclose Coshiers Check, Money Order or Personal Check. Allow M 
days lor delivery. 2 to 7 doys for phone orders. 1 day express mail! 
VISA — MASTER CARD — COD. No COD. to Canoda, APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd., Barringfon, Illinois 60010 

312/382-5244 to order 



Reeder Service No. 151 



FANTASTIC COMPUTER PRINTER SALE!!! 



lOX COMSTAR 

HIOH SPEED 

Tractor Friction Printer 
130-150 CPS 



.Ii.i i':' 'ijl!!i!'i:i:!!!|!;|'Hili|'| Com-Stqr 




Only 



n 



List $499 



COMSTAR 



15% "150-170 CPS Printer $319" 



• Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 

• Highspeed 130150 Characters Per Second • 40, 46, 66, 80. 96, 132 line spacing 

• Word Processing. Letters * Business Forms • Labels, Graphics, Tables * List Programs 

• Fantastic Graphics • Print Modem Data • The Most Important Accessory For Your Computer 



Premium Quality 

130150 CPS lOX COM STAR 

High Speed Printer $199 

10" carriage, 2K buffer, prints 
fi^'xll" standard single sheet or 
continuous feed paper. Bi-directional, 
impact, dot matrix, 130-150 CPS, 9x9 
dot matrix with double strike 
capability for 18 x 18 dot matrix (near 
letter quality), high resolution bit 
Image, underlining, downloadable 
characters, true lower descenders 
with super and subscripts, prints 
standard, block graphics, and special 
characters. It gives you print quality 
and features found on printers costing 
twice as much!! (Centronics Parallel 
Interface) (Better than Epson FX80 
and Gemini lOx). 
List $499.00. Sale $199.00. 

Premium Quality 150170 CPS 

151/2X COMSTAR Business 

Super High Speed Printer $319.00 

Has all the features of the lOX COM- 
STAR PRINTER plus 151^" carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson 
FX 100 & Delta 15). 
List $599. Sale $319.00. 



■JUKI' 

12" DAISY WHEEL 

PRITSTTER $199.00 

"JUKI" Superb letter quality daisy 
wheel printer, 12" extra large 
carriage, up to 12CPS bi-directional 
printing, drop-in cassette ribbon, (90 
day warranty) Centronics parallel or 
RS232 serial port built in! (Specify). 
Limited Quantities. 
List $299.00. Sale $199.00. 



■JUKI 



Printer/Typewriter 
Combina^tion $349.00 

"JUKI" Superb letter quality, daisy 
wheel printer/ type writer 
combination. Two machines in one — 
just a flick of the switch. 12" extra 
large carriage, typewriter keyboard, 
automatic margin control and relocate 
key, drop In cassette ribbon! (90 day 
warranty) Centronics parallel or 
RS232 serial port built in (Specify). 
List $349.00. Sale $249.00. 



OOtympia 



Executive Letter Quality $339.00 
15" Daisy Wheel Printer 

This is the world's finest daisy wheel 
printer. Fantastic letter quality, up to 
20 CPS bi-directional, will handle 14.4" 
forms width! Has a 256 character print 
buffer, special print enhancements, 
built in tractor-feed (Centronics 
Parallel and RS232C Interface) (90 
day warranty). 
List $649.00. Sale $339.00 



OOlympia 



Printer/Typewriter Combination $439.00 

Better than IBM Selectrlc, Superb 
computer printer combined with the 
world's finest electronic typewriter. 
Two machines in one, just flick the 
switch for up to 20 CPS printing (300 
Words per minute) on a 15" carriage 
that handles up to 14 1/8" in. paper. 
Drop in cassette ribbon — express lift 
off correction, Centronics parallel 
interface (90 day warranty). 
List $749.00. Sale $439.00. 



15 Day Free Trial— 7 Year Immediate Replacement Warranty 



PARALLEL INTERFACES 

For VIC-20 and COM-64 — $59.00. Apple — $59.00. Atari — $59.00. 



Add SI 4.50 for shipping, handling and insurance- Illinois residef>ts 
pieate odd 6% to*. Add $29.00 for CANADA, PUERTO RICO HAWAII. 
ALASKA. APOFPO orders Canodion orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
doys delivery. 2 to 7 days for phone orders. I day ejcpress moil I 
VISA — MASTERCARD — coo. No COD. to Conado or APOFPO 



We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 
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SALE 



40 or 80 Columns 
in Color 



Paperback Writer 64 



40 or 80 Columns 
in Color 



This is the easiest to use and most powerful word processor available for the Commodore 64. As you type on the 
screen, you will see your letters and words appear on the screen exactly as they will be printed (i.e. Italics will 
be Italic. Bold Face will be Bold Face), With the printer files you can customize Paperback Writer 64 to use all the 
fancy features of your printer. Loads EZ ScripfcJ, Paperclip" , & Wordpro 64® Files so you con easily upgrade 

your post wordprocessing text that you've written with obsolete wordprocessors. 
Take a look at some of the other features: 

• Wordwrap — No Words Break At The Edge Of The Screen, 

• Flexible Cursor Movement, Including Tabs And Other TImesavers. 

• Deletion And Insertion Of Charocters, Lines And Blocks CI Text. 

• On-screen Text Enhoncement, Such As Bold Face. Italics. Underlining, 
Superscripts And Subscripts. And Foreign And Other Characters. 

■ AAanipulation Of Blocks (ranges) Of Text For Functions Such As Moving 
And Deleting. Even Between Files. 

• Sorting Lists In Order Of Numbers And Letters. 

• Aligning And Adding Numbers in Columns, Helpful With Tables. 

• Variable AAargins At Left And Right. And Paragraph Indentation. 

• Lines Centered, Justified Or Aligned At The Right Side. 

• Variable Page Lengths And Line Spacing. 

• Borders At Top Or Bottom With Optionol Title Lines And Page Numbers. 

• Linked Files To Print Extra-long Oocomenis in Sequence. 

• Flexible Printer Set-up To Allow Use With Any Printer. 

• Find And Replace Text Functions That Con Be Automofic. 

• Complete Or Selective Directories Of Files On The Disk. 

• Sequential Files For Moil Lists And Communication With Other 
Computers. 

■ Spelling Checker. Checks Your Spelling. 




INTRODUCTORY PRICE 



$ 



39 



95 



i^ ^ ^ 



DOUBLE RROTECTO FREE TRIAL 

We are so sure this is the eosiest and most powerful word 
processor avoiloble. we will give you 30 doys to try it out. If you 
ore not completely sotisfied, we will refund your purchase price. 



1^ i^ 1^ Plus 

Full help screens on line with additional help on the disks mean 
you don't even need a manual. If you're in the middle of a page 
and you want to know how to use a special function just hit F7 
and the information will appear before your eyes. If you still 
don't understand hit F7 again and a more detailed explanation 
appears. Then simply hit F8 and you're back in 
the letter where you left off. No manual lookup 
necessary. This is the easiest word processor in 
the world to use. 
List $99.00. Introductory Sale Price $39.95. 



PAPERBACK DATABASE List $69.00. Sale S34.95. * Coupon $24.95. 



Add S3-00 for shipping, handling and insurance. HIinois residents 
please add 6'/. lo». Add 56.00 tor CANADA PUERTO RICO, HAWAII. 
ALASKA. APO-FPO orders. Conadiorv orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Coshiers Check. Money Order or Personol Check. Allow 14 
doys tor delivery. 2 to 7 days for phone orders, t day eitpress moil' 
VISA MASTERCARD -CO D. 

No CO D. lo Conodo. APO.FPO 
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We Liove Our Customers 

22292 N. Pepper Rd., Borrington, Illinois 60010 

312/382-5244 to order 
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SALE 



S^lP 



80 CPS PRINTER 

^^ Smith Corona 

• Commodore 64 • Atari * Apple • More 

• 11" Carriage • Friction/Tractor • Graphics 



^59 



1 Year 

Immediate 

Replacement 

Warranty 





Tractor Feed 
Included FREE! 




SMITH 
CORONIV 

The Fastext 80 dot matrix printer from Smith-Corono. A high speed, high flexibilily printer with a low suggested 
manufaclurer's retail price of only $299.00. Sale $159.00. II does your graphics with eose ond prints letters with speeds up 
to 80 CPS. (Does Commodore graphics with graphics interface.) As for flexibility, it has bi-directional printing, friction 
and tracter feed . Plus six different pitches including condensed and enlarged type for impeccable characters in o variety 
of sizes. Also standord is a full line buffer and thrifty drop-in ribbon cassettes that yield up to a million characters. Finally, 
it's compatible with virtually all personal computers. Teomed up with your personal computer, it'll keep track of your 
fransoctions, fly through finances, help with homework, even plan the family menu. All this with the ossurance of superb 
Smith-Corona quality built in, mokes the Fostext-80 a lot of dot for your dollar. List $299.00. Sale $159.00. 



SPECIFICATIONS: 

Stie Weight : Height A" Width 16.5" Depth 9" 

Weight B.2 lbs. 
Etectricol Needs: 120V 6OH2 
Iniernal Chor. Coding; ASCIliiSO 
Print Buffer Size: 132 Bytes (1 line) 
No. of Chor. in Char. Set: 96 ASCKJ 

tnternationoi 

Graphics Copobility: Stondard 60. 72 Dots Per 

Inch Horizontol. 72 Dots Per inch Vertical 
Pitch: 10. 12. 16.7, 5. 6, 8.3 
Printing Metliod: Impoct Dot Matrix 



Ctior. Matrix Size: (Standard) 9H x 8V. 
(Elongate) lOH x 8V 

Printing Features: Bidirectional. Short line 
seeking 

Printing Speed: 80 CPS 
PAPER 

Type: Plain 

Forms Type: Fanfold, Cut Sheet 

Max Poper Width; 11" 

Feeding Method: Friction Feed Std.: Tractor 
Feed Included 



RIBBON 

Type; Cassette — Fabric inked ribbon 
Life: 1 million choracters 

CHARACTER MODE 

Character Font: 9x8 Standard. 10x8 Elongoted. 

No. 8 pin to be used lor underline 
Clioracter Set: 96 ASCII. 11x7 internotionol Chor. 
Pin Groph Mode; The Incoming bit pottern 

corresponds to the 8 pins in the print heod 
Resolution; Horizontal: 60, 72 dots/inch, Verlicol: 

72 dots inch 



PARALLEL INTERFACES 



Commodore 64 — $39.00 



Apple II, He, 11 -I- - $59.00 Atari - $59.00 



Add SIO.OO tor shipping, handling and iniurance, Illinois residents 
pleoseadd6% la«. Add S20.00 lor CANADA. PUERTO RICO. HAWAII. 
AlASKA. APOFPD orders- Conadlan orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. 
Enclose Coshiers Check. Money Order or Personal Check. Allow U 
days lor delivery. 2 to 7 days for phone orders, 1 day express moil ! 
VISA — MASTER CARD — C.O.O- 

No C.O.O. to Canada. APOFPO. 



We Liove Our Customers 

22292 N. Pepper Rd.. Borringfon, Illinois 60010 

312/382-5244 to order 
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COLOR MONITOR 
^ S ALE!! ! 



(Premium Quail fy) 

• Built in speaker and 
Audio 

• Front Panel Controls 

• For Video Recorders 

• For Small Business 
Computers 

• Apple - Commodore • 
Atari - Franklin - etc. 



Add SM.SO sKipping, handling ond insurance 
Illinois re^tdenl^ please add 6'* TOk. We do' 
fiqt ihip lo loreign countries (including 
Conodo). Alaska, PuerroRKO. APOFPO. 

Enclojfl Cashiers Check, Money Order or 
Periionol Check. Allow 14 doys lor delivery. 2 
10 7 doyi for phone orders. 1 doy express. 
moil ' 





(Premium Quality) 

* Beautiful Color 
Contrast 

• High Resolution 
" Separated Video 

• Sharp Clear Text 

* Anti-Glare Screen 

• 40 Columns x 24 Lines 

* Supports 80 Columns 

List $399''° 

SALE SlTQoo** 

13" Color Computer Monitor ^**"-= -^■#'» 

** with S19.95 Software Purchase 

without Software Purchase 5189.00 

'Connecting cable $9.95 

IS Day Free Trial - 90 Day Immediate Replacement Warranty 



14" COMMODORE 1702 COLOR MONITOR 

List $299''° 

12" XTRON SUPER HI-RESOLUTION MONITOR 

80 Columns X 24 Lines, Super Hi-Resolution 1000 lines LlSt ^249°° 
Green or Amber Super-Clear "Easy to Read" text with 
special anti-glare screen I 

^2" J^USifff HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 

80 Columns X 24 Lines, Hi-Resolution, crisp clear easy W%\ SI99OO SALE *99***** 

to reod text with anti-glore screen I A MUST for word 



SALE SITQ"* 
SALE *n9*»*»* 



processing. 



12" MONITOR GREEN OR AMBER TEXT 

80 Columns X 24 Lines, eosy to reod up front controls List ^159*^° 



SALE n^"*^ 

* Connecting cable $9.95 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER SOO PROGRAMS • FREE CATALOGS 



Add SIO.OO tor shipping, hondling and insurance. Illtnots residents 
pleojo odd 6% tax, Add S20.00 for CANADA. PUERTO RICO. HAWAII. 
ALASKA. APO-FPO orders. Canadian orders musl be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
days for delivery. 2 to 7 doys tor phone orders, 1 day express mail ! 
VISA — MASTER CARD — COD. No COD. to Canoda APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd., Borringlon, Illinois 60010 

312/382-5244 to order 
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Commodore 64 




One Megabyte 
M99 Disk Drive '^99 

Store Spreadsheets, Databases, Wordprocessing Data, Etc, 

• Commodore 64 • PET • 8032 • B128 



The one megabyte disk keeps you from hunting through hundreds of disks for your programs; plus running out of 
room on your drive for Dota base Data, Word processing Text, Spreadsheet Data, Business program Data etc 
With the One Megabyte Disk Drive you can store over S% trmes the capacity of the 1541. You can store your 
own programs and ony back-upable commercial programs plus date from your business programs*. Perfect os a 
second Drive! ! ! ! Enter the world of professional computers today. C-64 requires lEBE interface 

List $8<?9.00. Sale $199.00. LIMITED OUANTITIBS! -Requires 7 drive softwore 



$ 



m^ Sale ^299°° 

15%" Highspeed 
150-170 CPS 

BUSINESS PRINTER 




The MPP-1361 Is a highly odvonced 136-250 column IS'/^" professionol tractor/friction printer with full Bit image 
graphics and downloadable characters for custom reports and program listings. The paper feed includes a multiple pin 
tractor for smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print 
head at 100 million characters this printer will last o lifetime. Full formatting with near letter quolity makes lining up 
decimal points, automatic "$" signs ond tabbing look fantastic and easy to use. With out a doubt THIS IS THE BEST 
PRINTER VALUE IN THE U.S.A. List $899.00 Sale »299.00. LIMITED QUANTITIES! 



SPECIFICATIONS 



PRINTING METHOD 

Seriol Impact Dot Matrix 
PRINT RATE 

150-170 Characters per 
second (CPS) 

PRINT STYLE 

Near Letter Quolity 

PRINT DIRECTION 

Bi-directional 



COLUMN CAPACITY 

136-250 

LINE SPACING 

Programmable 

COPIES 

3, including original 

RIBBON TYPE 

Cortridge ($14.95) 



RIBBON LIFE 

1 Million Characters 

PAPER WIDTH 

3" to 1 5'': " tractor or 

single sheet friction 

INTERFACE 

IEEE Protocol 

CHARACTER SIZE 

0.1 16" high, 0.08" wide 



GRAPHICS 

Bit Image 

Programmable Characters 
Reverse Characters 



ERROR HANDLING 

Internal 

Self - Diagnostics 

Microprocessor 



Commodore 64 IEEE Interface 



This interface plugs into your Commodore 64 Disk Drive port ond allows you to hook up the 1 Megabyte Disk Drive ond 
MPP-1361 Printer os well os other IEEE devices. Separte power supply insures reliability. Fontastic Interface, (includes 
all cables) List $109.95. If bought with printer or dftk drive $69.00. 

(no interface needed tor PET, 6-128, and 8032 computers) 



Add $17.50 for shipping, handling and insurance Illinois residents 
please odd 67. lox. Add S35.00 for CANADA PUERTO RICO. HAWAII. 
AlASKA, APO-FPO orders. Conodian orders must be in U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personol Check. Allow t4 
doys tor deliverif . 2 to 7 days for phone orders. I day express mail I 

VISA — MASTER CARD — COD. 
__^ No COD. to Conado. APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd.. Borrington. Illinois 60010 

312/382-5244 to order 
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By William V. Braun 



The thing that I least enjoy about programming is 
the time I must spend entering in code with the 
keyboard. I've often wished for some way of add- 
ing general subroutines that I had on tape or disk 
directly to the program I'm working on, rather than having 
to key them ail in by hand. Then there were the times when 
I wanted to be able to load two programs into memory right 
from tape or disk and simply combine them into one progrdni. 
Fortunately, I found a way to solve this problem. If you too 
have wished for an easy-to-use appending utility, I have the 
answer for you. 

Auto-Append is a short BASIC program which loads a ma- 
chine language routine into the top 28 bytes of RAM, and re- 
sets the limit of BASIC a bit in order to protect the routine 
from being overwritten. The machine language routine allows 
the user to enter two programs into RAM directly from tape 
or disk, then combines them into a single program. You can 
use Anto-Appenil with any amount of memory expansion, as 
the program automatically compensates for it. 
Just follow these simple steps to append two programs: 

1. Load and run Aiito-Append. 

2. Jot down the SYS locations in the instructions. 

3. Load the first program (the one with the lower line num- 
bers). 

4. Execute the first SYS (type it and press return key). 



/ 



ss.oo 



The lEA Instant Editor Assembler 

is now on SALE for only $5.00 
plus $2.00 postage and handling 



i 



Written in 100^ machine language 
Assembles 17k source in 5 seconds 
Coresident Editor Assembler Monitor 



# Compatable with HES MON 

# SLOW MOTION code analyzer 

# Technical assistance numt>er 



Robirte Software 

BdJ 2CB3Q • Bkjominytnn. MN 554S0 
Phone (BIS) 944-BBS4 



$9.95 each!!! 
for the Commodore 64 

BLACKJACK GIN RUMMY . 

DISK or TAPE 



PYSCO SOFTWARE 

Box 301 Bristol, CT 06010 




WANTED 



COMMODORE 64 computers and 1541 Disk 

Drives; $75 for those in working condition. 

Please call 205-221-5211 
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5. Load the second program (the one with the higher line 
numbers). 

6. Execute second SYS. 

Step 2 is very important, as the instructions will gradually 
scroll off the screen as you load your programs and you will 
probably have forgotten the proper SYS locations. 

Ft is essential that you keep in mind the feet that the first 
program you load musl have lower line numbers than the sec- 
ond program. For example, if the first program ends with line 
number 800. the second program must begin with a line num- 
ber no lower than 801. This is necessary due to the way pro- 
grams are stored in RAM. 

Once you have your programs combined, save a copy and 
verity it before trying to run it. A faulty POKE could cause 
the program to crash, making it necessary to repeat the ap- 
pending process if you did not make a copy of the program. 
Also keep in mind that you must have enough memory (espe- 
cially important on VIC 20s) to hold the machine language 
routine and both programs. This is unlikely to be a problem 
on the C-64; however, on an unexpanded VIC 20 you only 
have about 3.5K RAM to work with. 

Adding your general subroutines (such as centering, round- 
ing, etc.) to a program you are working on can be very easy 
if you store them on tape or disk as separate programs, then 
use Auto-Append to add them to your new program. You may 
want to give them meaningfiil names such as Center, Round, 
or Hex Conversion. Just load them from tape or disk as needed, 
using their program name. This technique should be much eas- 
ier than having a single program with all the general subrou- 
tines in it, which would make it necessary for you to delete 
all the parts of it you did not want after it had been appended 
to your new program. Don't forget to give the different rou- 
tines different line numbers, and make sure they are very high 
numbers to reduce the possibility of having them lower than 
the highest line number in your new program. 

Let's take a look at the program itself. Line 10 is really the 
workhorse of the program. The first two POKEs lower the 
limit of BASIC by thirty bytes, protecting the machine language 
routine. Memory locations 55 and 56 are pointers for the end 
of BASIC. The variable A is the address where the first byte 
of the machine language routine is to be located. It is also the 
first SYS address. The FOR-NEXT loop in Line 10 actually 
reads the machine language routine which is held in the data 
statements and POKEs it into memory. 

Lines 15 and 20 clear the screen and print the instructions 
on how to use Auto-Append. The second SYS address is equal 
to A -I- 19. Line 25 holds the machine language routine executed 
by the first SYS. while Line 30 holds the second routine. 

The first machine language routine moves the start of BASIC 
to the end of the first program you have loaded, thus causing 
the second program loaded to be located in memory right after 
the first- The second machine language routine returns the start 
of BASIC to its original location. You will notice that if you 
try a LIST after you have executed the first SYS it will appear 
that your first program is no longer in memory. This is just 
because the start of BASIC is now after that program, and a 
LIST causes the computer to start looking for a program where 
there is none. The second SYS returns the start of BASIC point- 
ers to their original value, allowing you to see both programs 
as one. D SEE PROGRAM LISTING ON PAGE 100 
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THE GAMES CREATOR 

Mastertronic International 
Commodore 64 
Disk; $19.95 

Calling all would-be computer 
game designers. If you've got the ul- 
timate action challenge bottled up in- 
side you, but don't have the know- 
how to get the idea onto a floppy 
disk, David and Richard Darling's 
The Games Creator is a "must buy." 

Software which lets non-program- 
mers create adventure games and 
branching stories has become quite 
common in the last year. Until now, 
no comparable system has existed for 
action contests. (Broderbund's TJie 
Arcade Machine, released in 1983, is 
easier to use than assembly language 
or BASIC, but its process is still pret- 
ty complex.) 

Any reasonably intelligent person 
can use this program to produce a 
climbing-and-jumping contest, maze, 
or scrolling shoot-out with extensive 
sound and graphics. A sample of 
each format is included on the disk, 
and most novices will start by modi- 
fying one of these sample games be- 
fore constructing a new one from 
scratch. They're also reasonably en- 
tertaining in their own right, a bonus 
for consumers. 

The 36-page instruction book re- 
duces the gamemaking process to a 
series of small, easily understandable 
steps. The numerous illustrations 
clarify every phase of the process, 
even though fuzzy reproduction and 
sloppy photo cropping undermine the 
pamphlet's aesthetics. A glossary ac- 
quaints users with any unfamiliar de- 
sign terms. 

An onscreen menu, operated with 
a joystick or the keyboard cursor con- 
trols, is the hub of the system. Se- 
lecting "Change," as opposed to "Play," 
"Save," or "Load," begins the con- 
struction of a game. 

The designer can work on aliens, 
sounds, graphics, or the player. When 
one aspect of the game is done, the 
f7 key restores the main menu so the 




Must buy for frustrated programmers. 
READER SERVICE NO. 101 

gamer can choose another. 

Sub-menus regulate the aliens' on- 
screen motion and behavior charac- 
teristics. There are five aliens from 
which to choose. The inventor can 
adjust random movement parameters, 
use the joystick or cursor keys to out- 
line a predetermined movement path, 
and select the alien's starting position 
on the screen. The other menu con- 
trols animation speed, movement 
speed, the ability to scroll off the 
screen, shooting, the mechanism for 
advancing to higher levels, collisions, 
and the number of nasties. 

Sound is divided into tunes and ef- 
fects. A serviceable music construc- 




Manage the greatest teams of all time. 
READER SERVICE NO. 102 



tion kit can be used to write up to 
seven pages of music and make it 
sound like any of several instruments 
when played. A program can employ 
up to seven sound effects to aurally 
indicate when the player fires a bul- 
let, gets killed, collides with an al- 
ien, and so forth. The individual ef- 
fects can be styled by adjusting the 
attack, decay, frequency, and wave- 
form. The computerist can check a 
sound by hitting fl while working 
with the effects menu. 

Two sub-menus split graphics into 
scenery and sprites. The former per- 
mits the pixel-by-pixel construction 
of play fields; the latter focuses on the 
game's moving objects, or sprites, of 
which there can be up to eight. 

The final menu commands the 
computerist's own onscreen represen- 
tative. Among the user-determined 
factors are the player's starting point 
in the game, the keys which cause 
movement, how far a character can 
fall in a jumping game, and whether 
the player moves continuously or on- 
ly in response to specific directives. 

The obvious question is: What 
about the resulting games? Games 
Creator programs aren't state-of-the- 
art stunners, but they can be attrac- 
tive and a lot of fun to play. The Darl- 
ing Brothers have streamlined the 
construction process by restricting 
choices, especially in sound and 
graphics, without leeching the life out 
of it. With practice, an imaginative 
computerist can invent action pro- 
grams which would be a credit even 
to the code-wizards who developed 
The Games Creator. 

Mastertronic International 407 
Park Avenue South, Suite 16A, New 
York, NY 10016 (phone: 212- 
213-0166). -Amie Katz 

MICRO LEAGUE BASEBALL 

Micro League Sports Association 
Commodore 64 
Disk; $3995 

Strike three! The ballgarae was 
over. And even before the Mighty 
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Casey finished his post-game show- 
er, Mudville rooters were second- 
guessing the slugger's manager over 
a round of brews. One secret of base- 
ball's enduring popularity is its end- 
lessly fascinating strategy. 

Statistical simulations like Micro 
League Baseball give armchair man- 
agers the chance to improve on real- 
ity. Their mathematical formulas 
quantify the performance of major 
leaguers so that each athlete in the 
game reflects the real-life player's 
abilities during the season on which 
the program is based. So if you te- 
played a fiill season, using each play- 
er exactly as his flesh-and-blood 
manager did, team and individual sta- 
tistics would virtually duplicate the 
actual season's totals. 

While some players of statistical 
simulations do, in fact, try to precise- 
ly recreate the past, most want to 
change history. Could a revised pitch- 
ing rotation improve a team's finish? 
Is there someone riding the bench 
who ought to be playing every day? 
Would the team score more runs if 
it emphasized the hit-and-run over 
longball power? 

Micro League Baseball gives com- 
puterists the chance to answer these 
and other equally intriguing questions. 
This is a rock-solid stat game dressed 
up in visuals which would do any ac- 
tion baseball program proud. 

One or two human managers - 
there's a robot pilot for solitaire fun — 
can choose any of the 25 famous 
teams on the Game Disk. The pub- 
lisher plans Team Disks, available for 
purchase separately, which will con- 
tain many more squads, including all- 
time all-star rosters for each major 
league franchise and disks that simu- 
late full seasons. An easy data trans- 
fer routine lets the computerist match 
a team on any Micro League Base- 
ball disk with any other team on a 
similar disk. Thus, it's possible to see 
how the "Yankees of Mantle and Maris 
might stack up against the Bronx 
Bombers of Ruth and Gehrig. 

The Game Disk contains an an- 
thology of teams, intended to show 
the scope of the manufacturer's in- 
tended future releases. The Game 
Disk includes some recent jugger- 

64 AHOY! 



nauts ('78 Yankees, '80 Phillies, '80 
Royals), classic teams of the past {'27 
Yankees, '55 Dodgers), and some all- 
star squads (all-time AL and NL 
greats). And masochists will thrill to 
the exploits of the numbingly inept 
'55 Washington Senators, one reason 
why there's no team in the nation's 
capital today. 

Each team comes with a suggested 
lineup. Onscreen menus help a man- 
ager switch things around to suit per- 
sonal preference. The program pro- 
vides mounds of statistics to aid in 
the selection process. Won-lost rec- 
ord, games saved, ERA, games 
pitched, complete games, innings 
pitched, hits allowed, strikeouts, and 
walks are listed for all pitchers. The 
rest of the team members are rated 
for batting average, home runs, runs 
batted in. times at bat, hits, doubles, 
triples, stolen bases, and field aver- 
age for any positions they can patrol 
on the field. 

The defensive pilot chooses the 
hurler's delivery from among four 
possibilities and positions the infield- 
ers. They can also call for a pitch- 
out, order an intentional walk, or vis- 
it the mound. 

The offensive manager can have 
the batsman swing away or lay down 
a surprise bunt. The skipper directs 
traffic on the basepaths and can or- 
der a sacrifice or hit and run. 

Players view the action from a seat 
in the upper deck behind home plate. 
Small windows indicate who is at bat, 
on the mound, and in the on-deck cir- 
cle, while the centerfield scoreboard 
prints pithy comments as the game 
progresses. Although the players are 
drawn small on the screen, wonder- 
fully intricate animation makes their 
movements easy enough to follow. 

Sound effects and music are more 
than adequate, but they slow down 
play. Computerists can cut playing 
time to about 30 minutes by hitting 
"M" when prompted. This clips the 
lengthy musical interludes and the ad- 
mittedly impressive spectacle of hav- 
ing the ballplayers run on and off the 
field after each half-inning. 

Micro League Basebalh flaws are 
few, but still worth mentioning. The 
inaugural edition doesn't print a box 



score or allow teams to swap players. 
The company has released a Utility 
Disk, priced at $19.95, which adds 
these functions. 

The pitching system has a few 
kinks. Each throw merely symboliz- 
es one complete interaction between 
a hitter and pitcher, so it's not realis- 
tic to call the hypothetical toss a 
"curve" or "fastball." Also, many pre- 
World War II pitchers didn't throw a 
slider. Perhaps this option on the 
pitching chart could be made more 
flexible to allow for a "specialty" pitch 
like a forkball or knuckler. 

Documentation is outstanding. 
There is a rule book, profiles of all 
clubs on the Game Disk, and two 
cards which summarize the keyboard- 
based order-entry system. 

Micro League Baseball is highly 
recommended for baseball -loving 
computerists. It provides plenty of 
mental stimulation and authentic ac- 
tion in an attractive package. 

Micro League Sports Association, 

28 E. Cleveland Avenue, Newark, 

DE 19711 (phone: 800-PLAYBAL). 

—Amie Katz 

PENMAN ROBOT PLOTTER 

Axiom Corporation 
Commodore 64 
$399.00 

When I discovered that the Penman 
plotter had arrived for review, I was 
ecstatic. This plotter appeared to be 
one of the most exciting peripherals 
to come along in a while. 

Traditional plotters have a pen that 
moves about over a piece of paper by 
means of a rail in each direction (x 
and y). More recently, plotters have 
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We're sure you're looking forward to trying out the programs in this issue of 
Ahoy.' But we're equally sure that you're not looking forward to typing them in. It 
you're an average typist, that should take you upwards of 25 hours. Not counting time 
spent correcting your typing errors, of course. How long thai will take is anyone's guess. 
• How would you like someone to type the programs for you? At a price of, say-32e 
an hour? Wouldn't it be worth 32<t an hour to free yourself up for more pleasant pursuits- 
like enjoying the rest of your Ahoy! magazine? • If you order the AhoyI Program Disk or 
Cassette, you'll be getting that service for just under 329 an hour. Because for $7.95 (postage 
included): we'll mail you all the programs in this issue, on a disk or cassette that's tested and 
ready to run with your C-64 or VIC 20. If you subscribe, you'll save even more: 12 monthly 
disks or cassettes for $79.95, 24 for $149,95 (postage included)'. Back issues are available as 
well. • You already know how to type. Why not use the hours you spend with your Commodore 
to learn something new? -Canadian and foreign prices higher. 
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sported a pen that moves only in the 
X direction, while the paper moves 
to provide y-axis movement. The 
Penman is completely different. It 
features an intelligent base unit con- 
nected to a "robot" via a ribbon ca- 
ble. This robot holds three pens and 
plots by rolling around on top of the 
fixed plotting surface. 

The Penman is ingeniously engi- 
neered. It has two wheels that drive 
it, and one unrestricted wheel for bal- 
ance. When initialized, the Penman 
aligns itself with the edges of the pa- 
per by rolling toward the edge until 
its bottom optical sensors detect a 
contrast difference between the pa- 
per and background; then it backs up, 
turns, and seeks the other edge. All 
this is purely fascinating to watch. 

The Penman can be told to plot in 




A reduction of another Penman plot. 

two ways: by Cartesian coordinates 
or polar coordinates. Plotting each 
way is very simple. The plotter is 
simply given a set of coordinates, or 
a direction and distance. Smooth cir- 
cles are drawn in polar mode by giv- 
ing a curvature parameter. An addi- 
tional robotics mode gives you direct 
access to the drive motors and opti- 
cal sensors for more direct control of 
the robot unit. A standard character 
set is also built into the plotter. Text 
can be plotted at various sizes and an- 
gles with ease. 

Interestingly enough, all lines, cir- 
cles, and shapes drawn by the Pen- 
man are completely smooth, in con- 
trast to the stepped lines drawn by 
other inexpensive plotters. This is due 
to the fact that the Penman draws by 
continuously varying the speed of its 



two drive motors to produce smooth 
plots. Another interesting feature of 
the Penman is its ability to "unwrap" 
itself automatically from the connect- 
ing cable. 

The only gripe I have with the Pen- 
man is that on complex plots accur- 
acy is lost. One way around this is 
to have the robot realign itself every 
so many moves, but this takes time. 

The Penman interfaces through any 
RS232 port and is driven by standard 
ASCII commands. At a price of 
S399, it is a surprising value in a low 
cost plotter. 

Axiom Corporation, 1014 Griswold 
Avenue, San Fernando, CA 91340 
(phone: 818-365-9521). 

—David Barron 

VISION BBS V8.3 
Vision Software Co. 
Commodore 64 
Disk; $69.95 

As the System Operator (SYSOP) 
of this magazines bulletin board ser- 
vice (BBS) and longtime SYSOP of 
my own BBS, I have spent a great 
deal of time examining the BBS soft- 
ware currently available for the Com- 
modore 64. With the wide variety of 
BBS's now in u!;e, choosing the soft- 
ware that offers the best value for 
your money is not simply a matter 
of buying the most expensive you can 
find. Fortunately, Vision Software has 
recently released an outstanding en- 
try into the marketplace. 

Vision BBS V8.3 offers all the fea- 
tures you would expect of a good 
BBS, combined with a price tag that 
won't destroy your budget. With fea- 
tures such as new style Punter up and 
downloads, up to 99 different mes- 
sage bases, and a userlog that can 
hold up to 999 users, plus the ability 
to work with as many as five drives, 
this software is a joy to use. Though 
the clear, well-written documentation 
claims a setup time of 1 hour, those 
of you who are new to bulletin btjards 
should allow a little extra time to plan 
out the many different menus that 
must be written. 

Once the various menu files have 
been created, the BBS is ready to go 
online. The first user entered should 
naturally be the SYSOP, and subse- 
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quent users are added to the userlog 
as they call in. Each user is required 
to choose an 8-digit password and is 
assigned a user code as well. New 
users may be given a low access lev- 
el until the SYSOP has time to exa- 
mine their application, whereupon 
their security level can be raised to 
allow them access to more features 
on the BBS. Security levels can range 
from a low of ! to a high of 99. 

One especially useful feature of this 
software is the ability of the SYSOP. 
and selected users, to control the op- 
eration of the BBS from a remote ter- 
minal. By selective use of high ac- 
cess levels, the SYSOP can allow var- 
ious users to log on and control in- 
dividual areas of the BBS from their 
homes. This reduces the amount of 
time the SYSOP must spend main- 
taining the BBS and updating the 
files. 

Another very interesting function 
of this program is that it can also be 
used as a terminal program, allow- 
ing the SYSOP to log on to other 
BBSs to trade files and information 
without the need to load in a differ- 
ent program. This feature alone is, 
in my opinion, worth half the cost of 
the software. 

One drawback that I noted while 
setting up my preliminary copy of the 
BBS is the lack of a text editor, which 
is required to generate the various 
menus used. A quick call to the 
manufacturer brought swift assuran- 
ces that all future versions will in- 



clude not only a text editor but a tim- 
ing .system that will remove the BBS 
from the phone line at a predeter- 
mined lime if you chcKise to run your 
BBS on limited hours. 

Persons interested in viewing this 
software before buying may call the 
Ahoy! BBS at (718) 383-8909, 24 
hours a day, 7 days a week. 

The current price for the software 
is S69.95, and registered owners can 
purchase a backup copy for an addi- 
tional $10.00. Future updates will also 
be made available to registered own- 
ers at a cost of $25.00. More infor- 
mation may be obtained by calling the 
Docs 'R- Us BBS at (914) 668-3664, 
or by writing the manufacturer at the 
address given below. 

When ordering, please specify 
which type of modem you plan to use. 
There is a $10.00 charge to change 
modem types at a later date. 

Vision Software Co.. P.O. Box 534, 

Bronx, NY 10461 (phone: 212- 

829-1538 voice; 914-668-3664 data). 

-BM Behling 

SOUNDCHASER 64 

Passport Designs, Inc. 
Commodore 64 
$199,00 

At first glance, the Soundchaser 64 
musical keyboard appears to be first 
rate. Unfortunately, the supplied soft- 
ware doesn't enable the keyboard to 
live up to the expectations set by its 
appearance. 

To start on the positive side, the 



keyboard is a full-sized 4-octave unit 
with an excellent feel. The housing 
is attractive tan plastic, matching the 
Commtxiore. Connection to the com- 
puter is made via a ribbon cable to 
the cartridge port. Overall, this is one 
of the finest keyboards I have en- 
countered. 

The BASIC Synthesizer Software 
provided includes a monophonic and 
a polyphonic synthesizer. The mono- 
phonic package is reasonably good; 
it allows all oscillators to play in uni- 
son, pnxiucing a very "fat" sound. Ad- 
ditionally, there is a LFO (low fre- 
quency oscillator) that can be used to 
produce vibrato and other special ef- 
fects. Thirteen presets, which can be 
modified at will, are included. They 
are good, but I was able to improve 
on most of them through the includ- 
ed sound editor. 

The polyphonic synthesizer allows 
you to play the keyboard with up to 
three notes pressed at once. Six pre- 
sets are included: they are fair, none 
being very impressive. The limitation 
on the presets is caused by the lack 
of any special features as found on 
the monophonic package. 

Neither package makes any provi- 
sion to "record" in any way. Modified 
presets cannot be saved to disk, and 
the mono/poly programs are .separate 
and not directly accessible from one 
another. Fortunately, Passport told us 
that they will release versions of 
Mcicnmsic and Computer Sheet Mu- 
sic that will take advantage of the 
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Soundchaser. Hopefully, these will 
make an improvemcnl in a device 
with great potential. 

Passport Designs, Inc.. 625 Mira- 
montes Street. Suite 103. Half Moon 
Bay, CA 94019 (phone: 415- 
726-0280). -David Barron 

VIZASTAR INFORMATION 
PROCESSOR 

Solid State Software 
Commodore 64 
Cartridge and disk; $119.97 or 
$149.97 (see below) 

"Innovative," "awestjnTely powerful." 
"sorely needed." and "incredible guar- 
antee" are phrases I immediately as- 
sociate with VizaSuir. These words 
aptly summarize this unique "work 
processor." Other apropos descrip- 
tors: "humungous cell capacity," "im- 
pressive graphics." "multiple wind(iw- 
ing." and "easy-to-use;" the list goes 
on and on, but you have the idea: this 
is a program unlike anything else for 
the C 64! 

VizaStar is an integrated software 
package; that is. it consists of three 
programs that work interactively. Re- 
siding simultaneously in memory, the 
spreadsheet, database, and business 
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Month' gels you a tape or disk full o1 10 
quality Commodore 64 programs deliv- 
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Tfie documentation included will help you 
run great utilities like 'Word Processor,' 
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TAPE DISK 

1YR112ISSUESI 6(r 75" 

6MO(6ISSUES) 35°° 45<" 

5i^leCof»« 7°° 9"', 




* Wevet)eeninbusinessfof 
over it^ree years! acquinng 

* Over 4000 satisfied color 
computer owners 

* Coinmodore S4 required 



Mdi Res add 4% 
Ovef??asADD$i01osubscnpiw^ 
and $1 00 10 Single ssues 

PfRSOMAL CHECKS WELCOME' 

T&DSubscnplionSoftware 
P.O. BOX 256-C 
HatJ^ND, Ml 49423 ^_ 
1616)396-7577 JSm 



flsader Service No. 105 



graphics programs are always im- 
mediately available. Each is outstand- 
ing in its own right. By integrating 
their features. Solid State Software 
has provided tremendous capabilities 
for infbmiation handling on the C-64. 
The only comparable product would 
be h>im 1-2-3 for the IBM PC: noth- 
ing in the C-64 world comes close 
to the vertical integration features of 
VizdStar. 

The terms information processor 
and wt)rk processor, used by Solid 
Stiite, describe not only what VimStur 
is, but what it does. 

All functions and applications for 
the program are menu-driven, and se- 
lections are supported by sub-menus. 
The basic display consists of a work- 
.sheet grid, and all labels, data, for- 
mulae, etc. are entered on it. Multi- 
ple windowing capability (up to 9 
windows "open" at a tinie) allows 
viewing several portions of the work- 
sheet simultaneously tor comparison 
or reference purposes. 

The program will support most 
popular printers suitably interfaced. 
Although a printer isn't mandatory to 
use ViziiSiur. it certainly is desirable. 
As of this writing (4/25), only the 
1541 Disk Drive is supported. 

The spreadsheet grid is a matrix 
of 1000 rows and 64 columns, yield- 
ing a maximum capacity of 64.(XX) 
cellsl Cell formatting either individ- 
ually or globally is provided in cur- 
rency, scientific, date, left- or righl- 
justitled, centered, integer, and gen- 
eral purpose formats. Additionally, 
they can be globally or individually 
protected from modification. 

Built-in functions for use in formu- 
lae include date processing and date 
calculations, in addition to the nor- 
mal -I — * / mathematical operators. 
The date functions are extremely use- 
ful and can be used for .schedule plan- 
ning, invoicing, lime-stamping" data, 
and multitudes of other applications. 
The built-in functions consist of: 

CALENDAR: (t;;date, ©day, 
©month, ©year, ©today 



H'alse. ©true, 
?if. ©err. @na. 



LOGICAL: 

©isna, ©iserr, 
and. or. not 

MATHEMATICAL: @abs. 
©cos, ©exp, ©int, ©log. ©round. 



©sin, ©sqrt, ©tan. ©pi 

STATISTICAL: ©avg. ©count, 
©max, ©min. ©sum 

TABLE LOOK-UP: ©hlookup. 
©viookup 

A very powerful feature of Viz/iStar 
is the automatic keyboard "EXEC" 
facility. This allows you to set up a 
sequence of commands which can be 
executed at any time, further expand- 
ing the program's range of complex 
applications. 

Database operations are called up 
from the work.shect. and a collection 
of up to 15 indexed files is possible. 
Each file holds records which can be 
up to 8,000 characters in length. The 
records may contain up to 64 differ- 
ent fields, and the fields can be up 
to 120 characters long. The average 
disk access time for any random rec- 
ord is three seconds on the I54I, fast 
enough to be envied by some "dedi- 
cated" database programs. 

Database file layouts are easily 
configured on a blank screen and re- 
versed headings and borders are ptis- 
sible. You can include up to nine 
screens per file layout, more than suf- 
ficient for just about any application. 

All database processing is direct in 
the program, and search criteria may 
be combined if desired. Search op- 
erators include: 

*— wild card match 

?— individual character position 
match 

&- match if following characters 
are found 

< — less than match 

> —greater than match 

< — ignore/do not match 

Business graphics functions allow 
translating spreadsheet/database in- 
formation into line and bar graphs, 
and windowing is permitted and sup- 
ported in this mcxie as well. Addition- 
ally, the XGF {Extended Graphics 
Package) is included with the pro- 
gram, which provides two impressive 
and sophisticated graph modes -col- 
or "pic chart-s" and 3-D, 4-way-scroll- 
ing "skyscraper" graphs. These 
graphing formats are the best I've 
.seen yet tor the C-64, bar none. 

The XGP graphs (pie & skyscraper) 
may be labeled and printed out di- 
rectly on a Commodore MPS 801 or 
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Epson-compatible printer with suit- 
able interface. Line and bar graphs 
are supported on almost all popular 
printers suitably interfaced. The 
printer functions will also support 
printing reports and labels. 

ViZiiStar is extremely fast in terms 
of records access speed and overall 
operation due to the fact that it is 
written in 100% 6502 Machine Lan- 
guage, It is compatible with most 
word processors for the 64. 

The VizffStar software resides both 
on cartridge and disk: the cartridge 
must be inserted while using the pro- 
gram. Two copies of the program 
disk are provided. In addition, a Tu- 
torial Guide manual and a spiral- 
bound User Reference Guide manual 
are included, all inside a partitioned 
vinyl case that provides convenient 
and durable storage. Rarely do you 
find documentation equal to the cali- 
ber of the software it pertains to. 
VizciStar gets a solid 4-star rating in 
this department. 

ViiffStar has a retail price of S119.97 
(version XL4; see below), not expen- 
sive when you consider that a good 
database will cost you about $100, as 
will a spreadsheet with decent graph 
capability, but not a small piece of 
change, either Solid State Software 
is so confident in the product that 
they offer a full refund for any rea- 
son by remming it to the place of pur- 
chase within 15 days. After using 
VmStar, I predict that Solid State will 
have very few refunds to make. 

Though it's an incredibly powerful 
piece of integrated software, I found 
VizaSuir quite simple to use, thanks 
to the excellent tutorial and reference 
manuals. The onscreen menus and 
sub-menus present the program op- 
tions and functions in a clear, logi- 
cal manner. Learning to use VizaSiar 
is painlessly accomplished by follow- 
ing the tutorial guide and entering the 
examples. Unique features like the 
EXEC facility make it possible for 
novices to set up and execute com- 
plex command sequences. 

Owing to the far-ranging capabili- 
ties of the program, it can be used 
for all sorts of applications. I found 
it particularly well suited for plan- 
ning, projecting, visual analysis of 



data, scheduling, maintaining cus- 
tomer records, mailing lists, generat- 
ing reports, and other information- 
handling tasks. I'm sure that the use- 
ful applications of VimStar are limi- 
ted only by the user's imagination. 
If you're looking for a serious ap- 
plication program to handle your 
spreadsheet, database, and business 
graphics tasks, your search has ended. 



VizaSiar does it all, and does it all 
amazingly well, 

(ViZiiStar is available in two ver- 
sions: the standard XL4 with lOK of 
free RAM ($119.97) and the XLS with 
14K of free RAM ($149.97).) 

Solid State Software, 1125 E. Hills- 
dale Blvd., Suite 104, Foster City, CA 
94404 (phone: 415-341-5606). 

—Tom Benford 
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Since November 1984, Mr. Nibble has- 
successfully copied heavily protected 
diskettes for grateful C-64 owners! 



WluU oUte^ f3Aj04nUef 




delioe^I 



The next generation in archival 
methods is here today! 

• No better disk copier at any price 

• Easy-to-use — no complicated 
instructions 

• Totally automatic — no knowledge 
of DOS required 

• YOiiV LOVE MR. NIBBLE" -if not. 
return within 10 days lor full refund 

Own THE FINEST DISK COPIER SYSTEM for 
The C-64 and 1541 disk drive - 0,^J^ ^^J^ / 



Full Circle 




FULL CIRCLE SOFTWARE, INC. 

PO Box 1373 
Dayton, Ohio 45401 

Phone (513) 223-2102 



$49-95 



includes shipping A handling 
(Ohio re»d«nls add 6'g sales tai) 



10 day return privilege 



Special MSD Version now available! 



Header Service No. 106 
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a Breakthrough in Value ! 

ULTRABYTE 

DISK DUPLICATORS 
with FREE BACKUP COPIES 



ULTRABYTE NOW OFFERS TWO OF THE BEST COPY 

PROGRAMS ON THE MARKET. AND BOTH COME WITH 

FREE BACKUP COPIES. 



ULTRACOPY II 



Jim Lagerkvist's sequel to the original ULTRACOPY 64 
owned by thousands of satisiied customers. 

Copies protected disks In 8 minutes on a single 1541 

Does not "hammer" the disk drive. Will not affect alignment 

Formats, copies and produces errors automatically in one step 

Features Normal Scan for reliable copies of most disks 

Includes Deep Scan with 38 track and half track capability 

Copies 99% of programs on the market 

Free backup copy - two disks for the price of one 

Technical support available by telephone 

Simple to use. Tone signals disk swaps 



ULTRABYTE DISK NIBBLER 



Uses proprietary revision of disk operating system (DOS) to make 
a bit by bit copy. This process, called nibDling. copies the format. 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies in 8 minutes with a single 1541 disk drive. 

• Easy to use. No separate analysis or error production 

• Choose 35. 36. 37 or 38 tracks to copy incl. half tracks 

• Makes up to 5 copies of each original — (UNIQUE FEATURE) 

• Backs up 99% of all software 

• Free backup copy - two disks for the price of one 



FREE BACKUP DISK 



ULTRACOPY II and the NIBBLER are independent products by ditferent authors. Both 
are excellent and either should meet your needs. You may order two disks of one 
product for $39.95 plus S4.00 shipping and obtain a single dlsl( of the other lor 
SZD.OO plus S3.00 shipping. Sorry, tree bacl(up must be same as disk purchased. 



FOR 2 COPIES OF EITHER 
ULTRACOPY II OR THE DISK NIBBLER 



plus J 4.00 shipping and handling. Mastercard. Visa. Check or M.O,, Foreign orders 
or COD add SZ.OO. CallL add B.5% [S2.60) sales tax. Additional backup copies are 
S 20.00 plus S3.00 shipping 

ATTENTION: Owners ol ULTRACOPY or the NIBBLER whose names are in our life 
may order a single copy of either product for {20.00 plus S3.00 shipping. 

Write or Call 24 Hour Order Line 

ULTRABYTE (818) 796-0576 
P.O. Box 789 La Canada, CA 91011 



DEALERS & DISTRIBUTORS WANTED 
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ON STAGE ($24.95) 

MUSIC VIDEO HITS ($24.95) 

3001 SOUND ODYSSEY ($.m5) 

Sight & Sound Mimic Software 

Commodore 64 

Disk 

"Jtisi let me hear some of that rock 
& roll music, any old way \rni choose 
il." 

Any old way'.' Chuck Berry might 
have had a few second thoughts if he 
had anticipated the invetition of the 
home computer. Thirty years after 
those words were written, rock and 
roll has tran.scended the world of 
electric guitars and drums and en- 
tered to world of microprocessors. 
One of the first examples of this phe- 
nomenon to reach the marketplace is 
Sight & Sound's new "computer song 
albums." 

It was only a matter of time before 
somebody figured -"Kids love rock. 
kids love computers, the C-64 has 
tremendous musical capabilities, so 
let's turn some rock songs into com- 
puter-generated music." 

That's exactly what they've done. 
On Skiii;e and Music Video Hiis are 
essentially collections of recent pop- 
ular songs translated for computers, 
Mitsic Video Hits includes TirrilU'r, 
Let's Hear It for the Boy, Sweet 
Dieams, Break My Stride, Steppin' 
Out. Soul Mem. Cla.ssical Gets, and 
Tlie Hustle. On Stage features On the 
Road Again, Ease on Domi the Road. 
Rise, Duelling Banjos, Cantina Band 
(from Star Wars), Entertainment To- 
night, Charlie's Angels, and Far from 
Over 

As the Commodore's SID chip 
pumps out the music, the "sheet mu- 
sic" appears onscreen. Notes don't 
scroll by. they sort of tlash on and ol"f 
in musical phrases. After a three-note 
phrase is finished, the notes disap- 
pear and get replaced by the next 
three. At the bottom of the screen you 
see the words to each musical phrase. 
as well as the words to the next 
phrase. 

The music itself has been compe- 
tently programmed by Peter Engel- 
brite. Each of the Commodore's three 
voices can be distinctly heard, which 
is intriguing to listen to. With most 
rock music, it's very difficult to sap- 
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arate the various instruments in your 
head. 

Synthesizers are adding a new di- 
mension to music, as is obvious from 
recent songs by Herbie Hancocli, 
Thomas Dolby. The Eurhythmies, 
and others. But simply talcing a song 
and synthesizing it is not necessar- 
ily an improvement. Just the oppo- 
site, in fact. Digitized Tlviller is in- 
teresting at first, but after a few min- 
utes you get the distinct feeling that 
you're on an amusement park carou- 
sel ride. The music is machinelike, 
automatic. The human emotion is 
missing. It's the Muzak-rock of the 
1980's. 

Whenever we complain about 
computer-generated anylhing, we can 
usually add, "But this is more than 
compensated for by the computer's 
ability to interact with the user." Un- 
fortunately, this isn't the case with 
Sight & Sound's computer .song al- 
bums. Hitting the number keys on the 
top row will speed the music up and 
slow it down. Manipulating the joy- 
stick will slightly change the "instru- 
ments" and create "special effects.' But 
the interaction is minimal. You can't 
edit the notes to Soul Man and add 
a few licks of your own. 

Sight & Sound does make two 
other programs -77!<' Music Proces- 
sor and TTie Music Video Kit— which 
are compatible and allow more crea- 
tivity when combined with the com- 
puter song albums. Both are sold sep- 
arately. But if you buy the computer 
song albums alone, you're basically 
just getting rehashed rock, at four 
times the cost of a regular album by 
the original artist. 

You've got to really like computer 
music to go for a deal like that. Sight 
& Sound's selection of songs certain- 
ly doesn't make it easy. Admittedly, 
there are some good tunes here, but 
each disk is a random hodgepodge of 
musical styles that is guaranteed to 
please nobody. Do fans of Joe Jack- 
son's Steppin'Out really want to hear 
Tlie Hustle... or vice versa? Willie 
Nelson fans will certainly get into On 
the Road Again, but do they care 
about Ease on Down the Road? Ma- 
son Williams' Classical Gas is a good 
song, but get hip. gang— it's 17 years 



old! And why anyone would ever 
want to hear computerized renditions 
of the themes from Duerfainment To- 
night or Charlie's Angels defies the 
imagination. Even K-Tel wouldn't re- 
lease an album with selections like 
these. It seems as though Sight & 
Sound just threw on any songs that 
were available to license. 

The heart of rock and roll is still 
beating, but not on floppies. Real mu- 
sic lovers should stick with the real 
thing. 



But real music lovers may be in- 
terested in another disk made by Sight 
& Sound— 3001 Sound Odyssey. 
Many of us are familiar with terms 
like volume, pitch, waveform, and 
envelope. These are the physics of 
sound that make, for example, a 
trumpet .sound different from a piano. 
Though you may have heard of all 
these terms, chances are you don't 
fully understand them. Dictionary 
definitions don't help much when it 
comes to vague, non-visual concepts. 

If only we could manipulate wave- 
form or envelope ourselves these con- 
cepts would become clear. The com- 
puter is the perfect medium to active- 
ly experiment with the physics of 
sound. 3001 isn't a music program 
like Music Construction Set or Musi- 
calc. It's a synthesizer that teaches 
you and shows you how to play with 
the parameters of sound. The pro- 
gram includes an excellent tutorial 
that explains all the terms and pro- 
vides examples of each. After each 
section, you can get a "Show Me" or 
a "Try Me" demonstration. 

Once you learn the difference be- 
tween "modulation" and "pulsewidth," 
switch to the "microsynth" mode and 
go crazy. A tap of the joystick lets you 
turn the Commodore's three voices on 
and off, play with filters and modu- 
lation, and manipulate all the ele- 
ments of sound. Change the wave- 
form from "sawtooth" to "pulse" and 
see what happens. The top two rows 
on your keyboard form a mini-piano 
keyboard that will let you create an 
unlimited number of sounds, from 
beautiful music to awful noise. If 
you're interested at all in the creation 



of music and sound effects, you'll find 
3001 Sound Ody.uey an educational 
and fascinating experience. 

Sight & Sound Music Software, 
Inc.. 3200 South 166th St.. New Ber- 
lin, WI 53151 (phone: 414-784-5850). 
—Dart Gutman 




7 think the personal computer is 
getting a little too personal' 



COMMODORE 64 

TAROT 

COMPLETE 78 CARD DECK 

KELTIC LAYOUT 

DIVINATION 

I CHING 

ALL 64 HEXAGRAMS 

ALL MOVING LINES 

AMERICANIZED 

VOO DOO 

SUMMON LOAS 

CAST SPELLS 

DOLLS 



DISK ONLY- $30 EACH 



WARESOi=T 
SOFTWARE 

BOX 6 

CHEWELAH WA 99109 
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WHITE HOUSE phon."^-^^^ 1-717-322-7700 
COMPUTER 



PHONE 1 

P.O. BOX 4025, 
WILLIAMSPORT, PA 17701 



HOURS: Monday thru Friday 9:00 am till 6:00 pm 

VISA and MC 
Accepted 4% 



DISK DRIVES 
C-64 

1541 185.95 

1571 ,..249.95 

1572 ...375.95 

MSD Single .. ..229.00 

MSD Dual 459,00 

Indus GT 239.00 

CardcoSCD-1... 199.00 

INTERFACES 

Tytniac 

Connectton/2K . . . 62.95 

Cardco -G 59,95 

Cardco B 37.95 

OR D 

GPC W/2K 55.95 

Grappler CD 89.95 

PRINTER PAPER 

LazorlOQOstitS.- 15,95 
Lazor2500stits,,, 29,95 

DISKETTES 3f 
SKC 

SS/SD 10.50 

SS/DD 13.50 

DS/DD 15.50 

MAWELL 

MD-1 15,95 

MD-2 21.95 

ELEPHANT 

SS/SD 13.50 

SS/DD 15.50 

DS/DD 19,50 

INNOVATfVE 
CONCEPTS 

Flip-N-File 

10 3.50 

15 8.50 

25 18.50 

w/lock 

50 17,50 

50 23.50 

ROM Holder. .. 17.50 

KOALA 

Pad Disk. . .....39,95 

Pad ROM 45.95 



COMPUTERS 
C-64 149.95 

C-128 ...275.95 



PRINTERS 



c-64 

MPS 801 179.95 

802 208.95 

803 175.95 

MCS 801 314,95 

DPS 1 101 314.95 

CITIZEN 

MSP-10 325 

MSP-15 479 

MSP-20 469 

MSP-25 629 

EPSON 

RX80 219 

LX80 249 

FX80 369 

JX80 529 

RX100 369 

FX100 550 

C. 1T0H 

8510 A 285 

8510 BC1 329 

8510 BC2 389 

8510 BP1 339 

8510 SP 389 

8510 SR... 429 

8510 SCP 459 

8510 SCR 477 

1550 BCD 485 

1550 P 445 

A10-20P 465 

F10-40P/S 875 

F10-55 P/S 1059 

F10 Tractor 169 

F10 Sheet Feeder 349 



MANNSEMAN TALLY 

Spirit 80 249 

MT 160L 495 

Ml 180L 595 

STAR MICRONICS 

SG10 217 

SG15 379 

SDIO 345 

SD15 450 

SR10 485 

SR15 585 

Powertype 309 



CARDCO 

LO 1 

4LQ 3. 



. .365 

209 



PANASONIC 

1090 187 

1091 257 

1092 389 

1093 585 

3151 455 

LEGEND 

880 209 

1080 229 

1380 269 

1385 305 

OK I DATA 

182 219.95 

84 640.95 

92 349.95 

93 560.95 

Imagewriter 425.95 



SOFTWARE 4 

BATTERIES 
INCLUDED 

Paper Clipw/S(jell Pk ,.. 69,95 

Paper Clip 59,00 

Home Pack 32.95 

Bus Card II 124.95 

B180 Board 99 95 

BRODERBUND 

Print Shop 29.95 

Graphics Library 18.95 

B,S, Writer 32 95 

EPYX 
FAST LOAD 23.95 



MONITORS 
AMDEK 

300G- 119 

300A 1 29 

310A 145 

Color 300 235 

Color 500 345 

Color 600 399 

Color 700 469 

Color 710 539 

TEKNIKA 

MJ-lO 229 

MJ-22 286 

XTRON 

Comcolor 1 189 

ZENITH 

122 85.95 

123 75,95 

BMC 

Amber 82,95 

Green 79,95 

COMMODORE 

C-1702 199,95 

C-1802 204 95 

C-1902 RGB 259,95 

C-1901 Monchrome. . 129.96 



VIDEO CASSETTE ♦ ♦ 
RECORDER $295.' 

Symphonic VHS/Remote 

• 105 Channel Cable Ready 

• 14 Day/ 1 Program Timer 

• 12 Pre-set Channels 

• Auto Rewind CHECK 
Plus much, much more! OUR PRICES! 




MODEMS 

C-1600. 44.95 

G-1650. 54.95 

C-1660 54.95 

C-1670 185.95 

300/1200 Band 



PRirHTER RIBBOMS 

DCJST COVERS 



Cardco 

MOD-1 59.95 

C-64 

MPP-1064 ...65.95 

Tele 

Learning 49.95 



Mitey Mo .. . 59.95 
Westridge. , ,69.95 
Connpuserve 
Starter Kit. . .21.95 



WE CARRY A FULL UME OF; 

Batteries Inc. Broderbund. Contineal. Hess, Infocom, 
Innovative Concepts, Koala, LJK, Microbits. Micro- 
pose. Microtek. 0.8,8,. Professional S.W. Scarborougti. 
S.S.I., Synapse, Time Works, Wico. 



POLICY: No deposit on COD orders, FREE freight on 
atl prepaid casfi orders over S300 in the continental 
USA, APO and FPO add S5 per hundred. For priority 
ivlail add 88 per hundred. PA Residents add G% sales 
tax. Defective products must have Prior RA number 
Schools net 1 5. 



mm 



Reader Service No, 173 



SCREEN DUMPING ON THE COMMODORE 64, 

PART II 

Etch: A Bit Graphics Sketching Program 



Includinj Squares Game for the 64 



Probably all of us have, at 
some time or another, 
played with Ohio Art's 
"Etch-a-Sketch: The Etch 

program described here allows you 
to create similar pictures on your 
Commcxlore monitor, but with sever- 
al additional features. And perhaps 
most important, it allows you to print 
the screen image on your printer. 
(The printing feature was written tor 
a Gemini 10 or lOX printer; use with 
other printers will require some mod- 
ification to the program.) 

Screen Dumping on the Commo- 
dore 64. in the June '85 Ahoy!, in- 
troduced the principles of screen and 
printer bit graphics, and demonstra- 
ted how to transform a screen bit map 
into one accessible by an 8-pin dot 
matrix printer. Readers interested in 
the details of bit map creation should 
consult that article. The present pro- 
gram uses similar machine code rou- 
tines for memory manipulations and 
printing. But the bulk of the program 
is written in BASIC and can be read- 
ily understood. 

To get the program running, here 
is what you need to do: 

i) Move the beginning of your 
BASIC program with the following 
instruction: POKE 44, 64 : POKE 
16384, : NEW. 

2) Enter the program, instructions 
1-1190, as it appears on page 97. 

3) PEEK in 45 and 46 to deter- 
mine the location of the end of your 
program, then POKE in a value 210 
greater to accommodate the machine 
code. (See Part I ia.st month.) 

4) RUN the program, and input the 
207 bytes of machine code listed at 
the end of the program. Do this slow- 
ly and carefully.* 

5) Delete instruction 4. 

6) SAVE the program, then RUN it. 
*If you should ever want to list the 

machine code at the end of your pro- 
gram, use the following sequence: 



By Roger S. Macomber 

Professor of Chemistry 
University of Cincinnati 

A OPEN 4,4,2 :CMD4 ;J=0 

5 FOR I = TO 206: PRINT P 
EEK(Sl+I);:J=J-i-l 

6 IF J>15 THEN PRINT CHR$( 
10);:J=0 

7 NEXT:PRINT#4,:CL0SE4:ST0 
P 

We'll describe the game later, so 
answer "N" to the first query. You 
should see a white screen (blue bor- 
ders), and if you look very carefully 
at the upper left comer, you'll see one 
black dot indicating the position of 
your cursor. You can move this cur- 
.sor up. down, right, or left using the 
normal cursor control keys. Notice 
as you practice moving the cursor that 
it is prevented from going off the 
screen. If you press F (Fast) the cur- 
-sor will move 5 times as fast; press- 
ing S (Slow) will restore the slower 
movement. 

Now, to draw a horizontal or verti- 
cal line, press D (Draw) and your 
cursor will leave a line behind it as 
it traverses the screen. (When using 
the Draw function you must contin- 
ue one dot past the end of the desired 
line, because the last dot is erased 
when the draw mode is disabled.) To 
disable the Draw function, hit D 
again. Note that if you engage D in 





































































































































































Shown: a reduction of an actual dot 
matrix printout of a game o/ Squares. 



the F mode, you will draw a dotted 
line, while in the S mode, a solid line 
results. If you make a mistake, you 
have two options. First, pressing E 
puts you in the Erase mode and the 
cursor will erase any dot it crosses. 
So by retracing the offending line 
you'll see it disappear. The Erase 
mode is disabled by pressing E again. 
Or second, by pressing t7, the entire 
screen is cleared to begin anew. 

One further feature of the program 
allows you to draw straight lines at 
any angle to the horizontal. To draw 
such a line, bring your cursor to one 
end of the desired line and press I 
(Initial), then move your cursor to the 
other end of the line (anywhere else 
on the screen except directly above 
or below the initial point) and press 
D (Draw) L (Line). Immediately a 
line is drawn from the final point 
back to the initial point. Notice also 
that the D, E and L functions all op- 
erate in either the F or S mode. 

Finally, when you have created just 
the picture you want, you can print 
it (on a Gemini 10 or lOX only!) by 
simply pressing fl. 

SQUARES GAME 

Let's return to the game as prom- 
ised. To do this, it will be necessary 
to hold down the RUN/STOP key and 
press RESTORE, then RUN the pro- 
gram again. This time answer "Y" to 
the prompt. The .screen will fill with 
a 10 dot X 10 dot array, and the cur- 
sor dot will appear near the middle 
of the screen. By using your cursor 
controls and the Draw function, each 
player alternates and tries to complete 
squares in the usual way. When a 
square is completed, the player iden- 
tifies it with some number of dots in 
its middle. The player with the great- 
est number of squares wins. The 
printed result of one such game is 
shown here; the author lost! D 
SEE PROGRAM LISTING ON PAGE 97 

AHOY! 73 



Program Your Own EPROMS 



$99.50 



f^'Omenade 



"0 

c 




2 



^ VIC 20 
^C64 

PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED. 
EASY TO USE. VERSATILE, 

• Read or Program. One byte or 
32K byles! 

OR Use like a disk drive. LOAD. 

SAVE. GET INPUT PRINT CMD. 

OPEN, CLOSE— EPROM FILES! 

Our software lets you use familiar BASIC commands to 

create, modify, scratcfi files on readily available EPROM 

chips. Adds a new dimension to your computing capability. 

Works With most UV. fi/lonitors too. 

• Make Aulo-Start Cartridges of your programs. 

• The promenade' 01 gives you 4 programming voltages, 
2 EPROM supply voltages, 3 intelligent programming 
algorithms. 15 bit chip addressing. 3 LED's and NO 
switches Your computer controls everything from software! 

• Texlool socket. Anti-slalic aluminum housing. 

• EPROMS. cartridge PC boards, etc. at extra charge. 

• Some EPflOM types you can use with the promenade' 

2?b8 IMl 46273?P ?7i;8 5133 XS816A- 

2516 ?73! ?S6J 272S6 5143 5?ei3' 

2716 27C32 ?7&l 58764 J815' 4801BP" 

27C15 2732A 27C64 68766 J316- 



Call Toll Free: 800-421-7731 or 408-287-0259 
lr> California; 800-421-7748 

EJASON-RANHEIM 
580 Parroti St , San Jose, CA 95112 
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The Intelligent alternative 
to overpriced 64'"" software 

The Intelligent Soflwttrc Pacjkage ior C-64"', VJC"', SX~G4 '^ C-ISS^", 
LCD'^ Plus 4'", 16'", B-1^8'^ and PET/CBM'"' An fntBgrated 
home/busmess/educa Clonal package of 25 powerful, useful proyrams (total 
ing over 51 pages of source code) that wjII put your Cammodore to work 
right now. in your home or aft*ce. afl on disk or tape at the ndicuJous price 
0* S35. or about $1 40/program. One customer writes. "', . . This is as 
slick a dea! as I have seen and rnore than adequate for alt except fancy 
presentations The best thing is the ease of use . ' ' The package include ^ 
Database: A compkite miAt* kcyF'd lix^d 
leixwd ifriglh daia hasf Tnitnayer Sen ui" 
s^ct [usTiq ai relaiiofial cpei ators 



. AND. OR HOI. wiM rsrdj on any field, 
perlorni contptiLaUwis tin numeric helds 
Any oppraiion can he (lerfortned on all. or 
only selected records All Iwjlds ccvrnpletely 
userdetinabre CanbeusedJor anviwjmber 
of tasks. mcHrdiny accDttfM»nt), mailing (tsts, 
rnventary control, record, tafie. or txK* 
catalogtfig. expense account maff;teni'vice. 
or as an electronic roloden Bven if yosi use 
yojr Comfnodorc for noditng else, this prO' 
gran> .(June might lustily "ts expense 
Word ProcBBttOr: A full featur-ed menu 
(Ufvtt- ^^ord processor including very *asL 
f iJu rTirmnands. screen editmg. teit locaiiog 
tini) lull control over margins. Bpflcing, pag 
iMij "ndentalion. ami justilicalion 
well done and hip/j/y fvnc 
itonai ProvHies an excetieni alter 

native to the tvgh priced word 
processors this ts ari excellent: buy 

Highty recxtnvDetxbKf " Midnite Software 
Gazette "Provides good busnc features " 

GompiitB's Ga/Gtte 
Copycalc: An electronic spreadsheet 
Turns yo«j- Commodore jnioa vis*jle bdance 
sheet, includRS screen edilor "Excellent 
ptogram tor htjdgeltng. esltmaung. of any 
malhoiisntett use t/vell worth the 

monr^Y Highly rpcommpntUfd " Midnite 

Intelligent Software 



Al<^ rr.KxlEd ReparcGen, ReportMerge 
ImteHacf W/P with Datafjase ta cnrAu 
form tetters. stalemenLs. mvoces. mailintj 
lahels, aihcr rcptv-Ls ], BasBbaiJ Statisti- 
ctan IcDTipiles batting statistics for a 
litiseball leogLip|. several W/P utilities, nv 
dud^mj IndeK [indexes W/Ps text files], 
^evprai Daiahflse utilitiefi. mcluilinci 
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pliDatian!^ ]. end OBStat (analyses D/B 
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cwvert'S text fJpF. (prfiqinm fir,i mor-. ] mrn 
|)in)gr£ffh rJes HisoChecVbaok Inventory 
Papsr Route Laan Analysis 
Breatieven AnalysiB Depreciation 
Labelcr File Copier 'f\Wi- 

Vk;rbiuris ijl iht; pjti;kdije are availirfilc tm 
evfify Commodore computer having a 
mmimuiTi of lO RAM. please specify 
reijular disk, 9Q50 dis^, oi* tape torrYiat 
|d«sk onfy lor Ptus4 * and 16^ 1 All programs 
si4ipDrt tape. disk, and printer, piice in 
dudes documentauon and shippuu; C^tit 
residents add 6^ Vrsa/Maslercard. atJtl 
S?, no personal checks fi-om ogtside USA 
This <Td IS the latatiy. a samplirtg of program 
output m available lor $2 
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By Morton Kevelson 

Is there any way to suppress the six line pcrroration 
skip on the Okimate 10 printer? I have tried changing 
my printer and interface without any results, I can con- 
trol the problem with WordPro 3 Plus/64 by setting the 
page length to 60 for eleven inch paper. This cannot be 
done with my General Ledger Accounts program from 
Integrated Software Scries (IDI). I have also tried every 
pK)ssible way to access the printers other text mtxies from 
within WordPro, but nothing seems to work. 

—George Elder 
Cornelius, OR 
George, 

Hold everyihing. Stop changing hardware with your 
dealer Tltcre is nothing wrong with your printer or its 
interface. Vie Okimate 10 powers up with the perfora- 
tion skip feature activated. Jliis is described on page U 
of die manual. Vie manual does not explain how to turn 
this feature off or on. However, the appropriate command 
codes are listed in the Command Reference Chart loca- 
ted on the inside hack cover. To turn off the automatic 
perforation .'ikip far use with any of the programs you 
mentioned, simply execute the fallowing commands prior 
to running the program: 

OPEN A, A 

PRINT#4,CHR$(27)CHR$(66) 
CLOSE A 

To turn the peifaraiion skip back on, change the second 

line to: 

PRINT#A,CHR$(27)CHR$(65) 

Vu'se commands can be issued in immediate mode as 
sliown, or they can be SAVEd and RUN as a short pro- 
gram by including line numlu-rs. 

Vie difficulty with accessing the Okimate JO special 
features from within WordPro /,v not a problem with the 
Okimate 10 printer, but apparently a limitation of 
WordPro. Page 9-6 of the manual indicates that the abil- 
ity to se/ul special characters in CBM mode is limited 
to a value of 254. In addition, according to the manual 
far the Tpnac printer interface, WordPro disables the .spe- 
cial character mode when the "C opticm is selected in 
response to the "Printer?' prompt. As a result, we must 
conclude that you will not be able to access any of the 
.special features through WordPro 3 Plus, 

I own an MX-80 Epson printer with an 8145 RS232 
interface card installed to an HP computer via RS232. 
I would now like to interface the same printer (without 

Continued on page 114 



AUTOS: LEASIKG 



For the C-64 



~^pK~ ince 1 had nol purchased a new car for several years, 
^^^ the celestial sticker prices came as a complete 
^^W sh(X'k. The high monthly payments and steep in- 
W^r terest rates were much more than I had aniicipalcd. 
The salesman, noting my reaction, urged me to consider leas- 
ing. He argued that leasing was actually cheaper than buying. 
However. I wondered whether his claim was true. Would it 
be cheaper to lease a new car than buy it? 

I struggled with my hand calculator for several long hours 
before realizing that the problem was far toti complex for a 
few simple calculations. Each auto had a different price and, 
consequently, a different monthly payment schedule. And then: 
were so many lease plans available. Finally. I turned to my 
Commodore 64 to find a systematic and thorough way to make 
the desired comparisons. The result is this Leasing v. Buying 
program. Even if you're not in the market for a new car, you 
may find this program educational and interesting to run. 

The program produces tables showing the cost of owning 
a new car and the cost of leasing the same car. It tells you 
what information you need, makes the necessary calculations, 
and displays the results so you can decide whether it is belter 
to lease or buy in your specific situation. The program can 
be run over and over so you can easily compare different 
makes, models, optional equipment configurations, and finan- 
cing arrangements with their respective lease plans. Although 
designed for screen display, the program can be mcxiified easily 
to output to a printer if you wish to study the results. 




TYPES OF LEASES 

Despite the wide variety of names used, there are basically 
two types of leases available; closed-end and open- end. Under 
a closed-end lease, the monthly payments you make arc for 
a specific period of time. When the lease period ends, you 
return the car and you have no additional financial obligation 
to the lessor. 

Under open-end leases, you agree to pay an additional 
amount if the value of the car at the end of the lease periixl 
is less than the amount estimated at the time the lease is signed. 
For example, suppose the lessor estimates that the car will be 
worth $3,850 at the end of the lease period. If its value at that 
time is only $3,300, you would have to pay the balance of $550. 
However, if it is worth more than $3,850. you should receive 
a refund. 

This program may be used for both types of leases. How- 
ever, most leases have a limit on the number of miles you are 
permitted to drive each year, usually around 15,000. If you ex- 
ceed this limit, you will have to pay an additional charge for 
the excess miles. The program assumes that you will .stay with- 
in the miles limit. 

ENTERING THE INFORMATION 

After copying the program, type RUN and enter the infor- 
mation requested. Most of the requests are self-explanatory. 
However, a few words are necessary to insure accurate inputs. 
Naturally, the buying and lease information should be for the 
same make and model car in order to produce a meaningful 
comparison. 



v. BUYING 

By Gil Ragan 



The purchase price is the first item requested. For this entry, 
use the actual price th#dealer would be willing to accept, nol 
the manufacturer's suggested retail price. When entering dollar 
figures, do not use $ or commas. Next you will be asked, 
WILL YOU NEED FINANCING? Type in a 'Y' if you expect 
to borrow part of the purchase money. An 'N' will cause the 
program to branch and skip the questions relating to loans. 

For the interest rate request, enter any fractional portion of 
the rate as a decimal. For example, 15 '4 percent should be 
entered as 15.25. The length of the loan should be entered in 
months. A four-year loan, for example, should be entered sim- 
ply as 48 for 48 months. Inputting the length of the loan this 
way lets the program calculate your monthly loan payments 
and interest charges. These calculations are made in lines 1030 
and 1040. 

If you live in a state that imposes a sales tax on autos, enter 
your state's rate when requested. Don't forget to enter the per- 
centage rate in decimal form. The sales tax in dollars will be 
computed automatically. For the license fee request, enter your 
best estimate if you do not know the actual amount. 

You are next asked what type of car you are considering. 
The reason for this request is that cars depreciate in value at 
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different rates depending upon their types. Average depreciation 
rates tor the three major types of cars are stored in the sub- 
routine in lines 2(XW-2220. The number you enter here will 
select the proper group of rates for the type of car you arc 
considering. 

One ownership savings frequently overlooked stems from 
the federal income lax. Interest charges on loans and state sales 
taxes paid are deductible for tax purposes if you itemize your 
deductions as opposed to taking the standard deduction (now 
called zero bracket amount). If you itemize, an.swcr "V to the 
question posed. This will be followed by a request for your 
percentage income tax bracket. You can find your income tax 
bracket by using the X, Y. Z Tables in the income tax booklet 
which is sent to you with your lax forms each year. 

The next section of the program will ask you to enter data 
abt>ut the lease you arc considering. First, you will be asked 
to enter the amount of any refuiukthk' security deposit you are 
required to make. This will be followed by a request to enter 
the amount of the monthly lease payments. Include only the 
cost of the "pure" lease. If a service maintenance contract is 
included with your lease package, the cost of this contract 
should be subtracted to get the actual lease cost. 

Some leases require a non-rel'undable down payment or other 
charge at the beginning of the lease. If such a payment is re- 
quired, enter the amount as requested. 

THE RESULTS 

After all information has been entered, the program will first 
compute your net cost of buying and will display the results 
on the monitor. The display format will vary de[3cnding upon 
whether you pay cash or finance the purchase, and upon wheth- 
er you itemize deductions for income (ax purposes or not. 
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If you do not need to finance your purchase, you will see 
an item called "Tnterest lost on purchase price." This item refers 
to the interest your money could have earned at bank passb<iok 
rates had you not bought the car. The interest you give up by 
spending your funds is one of the hidden costs of ownership. 
Incidentally, if you have been earning a higher interest rate 
on your money, insert that rate in line 1015 in place of the .055. 

If you finance the purchase, you will see a similar item "In- 
terest lost on down payment" instead. The same reasoning ap- 
plies to this cost of ownership. The bank passbook rate is in 
line 1020, and a higher rate can be easily substituted. For fi- 
nanced purchases, an additional line called "Total Payments 
on Loan" will be displayed. This line shows the total interest 
charges and loan repayments on the portion of the loan used 
to purchase the car only. Additional money borrowed for things 
like the license is excluded to avoid double counting. 

Next you will see some deductions. The car you buy should 
have a value at the end of the loan or lease poritxJ. This residual 
value is an estimate olthe amount you should be able to obtain 
by selling or trading the car at that time. Consequently, it must 
be deducted to obtain your net cost of buying. 

If you itemize yc^ur deductions for income tax purposes, the 
lax savings is computed antl also deducted from the total cost 
of buying lo give your net cost. 

The program will then compute the cost of leasing. Press 
C to view the results. Again, note that interest lost on the 
security deposit and on the non-refundable down payment is 
computed and added lo your cost of leasing. The security de- 
posit will be refunded to you at the end of the lease period, 
so it is deducted to find your net cost of leasing. 

Note that items such as insurance, repairs, maintenance, gas. 
and oil have been omitted. Under the standard lea.se. you mu.st 
pay ftir these items just as you would as an owner. These items, 
then, would be the same in both calculations. For this reason. 
they are ignored, and the program concentrates only on items 
likely to be different depending on whether you lea.se or buy. 

THE FINAL COMPARISON 

Press "C" once more for a final display. First, you will see 
what your monthK' loan payments will be. This is followed 
by ihc monthly lease payment which \'ou entered. Don't be 
surprised to find that the monthly loan payments arc higher 
than the lease payments. Such a situation will happen particu- 
larly if you are making a rather low down payment. This is 
what the salesmen mean v^ hen they imply that leasing is cheap- 
er than buying. 

The key compari.son is found in the next two lines. They 
show your net cost of buying and your net cost of leasing. The 
final line of the program will tell you whether it is cheaper 
to lea.se or buy based upon the information you entered. 

PRINTER MODIFICATIONS 

One final note. If you wish to modify this program to out- 
put to a printer, delete lines 520 and 540. These lines merely 
introduce slops in the screen display. Then, for a VIC-1525 
printer, add the following: 

490 OPEN 2,4 

500 CMD 2 

750 PRINT#2: CLOSE 2 

If you have a different printer, consult your manual for the 
appropriate OPEN. PRINT, and CLOSE statements. U 

SEE PROGRAM LISTING ON PAGE 100 
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WRITING & RUNNING AN 
ASSEMBLY LANGUAGE PROGRAM 

By Mark Andrews 



Writing a program in assembly language re- 
quires a software package called an as- 
sembler-editor, or simply an assembler. 
Three of the most popular assemblers for 

the Commodore 64 are: 

• The Commodore 64 Macro Assembler Development 
System, manufactured by Commodore. 

• The Merlin 64 assembler, manufactured by Roger 
Wagner Publishing, Inc. (formerly Southwestern Data 
Systems) of Santee. CA. 

• The Panther C-64 assembler, manufoctured by Pan- 
ther Computer Corporation of Los Angeles. 

It wouldn't be fair to rate these in 1-2-3 order, since 
each has its advantages and disadvantages. But to help 
you decide which you'd like to use, here are brief de- 
scriptions of each: 

THE COMMODORE 64 ASSEMBLER 

An excellent package, designed by professionals for 
professionals, the Commodore 64 Macro Assembler De- 
velopment System (the Commodore 64 Assembler for 
short) works much like the large assemblers used with 
mainframes. Unfortunately, though, it isn't what I'd call 
user-friendly; in fact, it can be downright user-hostile, 
especially for people who are just starting to study assem- 
bly language. 

The Commodore 64 Assembler comes on a single 5 W- 
inch disk. But there are several programs on that disk, 
and each time you write and assemble a program, you 
have to load and run several individual utilities -in the 
correct order. If you use the programs in the wrong se- 
quence, or make a mistake in using one program before 
you load the next one, you sometimes have to start the 
process all over again. That can be both annoying and 
time-consuming. 

THE MERLIN 64 

The Merlin 64 is an imaginatively designed assembler 
with a host of advanced features-some not available in 
any other C-64-compatible assembler system. For exam- 
ple. Merlin comes with a very sophisticated disassembler 
(a utility that can convert machine language into assem- 
bly language). Another bonus is a large library of use- 
ful assembly language routines that can be incorporated 



into user-written programs. 

Merlin is equipped to handle macros— prewritten rou- 
tines that can be easily inserted into assembly language 
programs -and has linking capabilities that enable the 
user to write programs ordinarily too long to fit into a 
Commodore 64's memory. And Merlin can be used in 
an 80-column format on a computer equipped with a 
high-resolution monitor and an 80-column card. 

THE PANTHER C-64 ASSEMBLER 

The Panther C-64 Assembler is even easier to use than 
Merlin -so it's a popular package, especially among new- 
er assembly language programmers. But it lacks some 
features that have become almost standard in assemblers 

macro capabilities, for example— and for some reason, 
the displays and the programs listings it creates are al- 
ways printed in lower-case letters, a feature I find an- 
noying. Furthemiore, the Prt/i//u'r consumes more mem- 
ory space than either the Commodore 64 Assembler or 
Merlin 64, and some of the memory space the assem- 
bler eats up is in blocks of RAM which I feel should 
be left free for user-written programs. 

On the positive side, the Panther is a joy to use; every- 
thing that it can do is directly accessible from the editor 
(a costly feature in terms of memory), and its as.sembly 
language editor has a beautifully engineered error-check- 
ing system that makes it almost impossible to write a bad 
line of code. And the instruction manual that comes with 
the program is very good; in fact, if I didn't own a Pan- 
ther assembler, I might be tempted to buy one just to 
get iny hands on the tutorials in its manual. 

GOLDILOCKS & THE 3 ASSEMBLERS 

When I .started writing this series of columns, it was 
difficult to decide whether to use the Commodore 64 As- 
sembler, Merlin or the Panther C-64. So I picked one 
by the Goldilocks method. After much experimentation, 
I concluded that the Commodore 64 Assembler was too 
big. the Panther was too little, and the Merlin 64 was 
just about right. So most of the programs you'll see in 
this column were created with Merlin. If you own some 
other kind of assembler, that's okay; with minor modifi- 
cations, the programs in the.se columns will work with 
any assembler compatible with the Commodore 64. But 
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for consistency, they'll all be written on a Merlin -and 
the column >ou'rc reading now, a tutorial on assemblers, 
will focus on the Merlin 64. 

And that brings us to our real topic: how to use an 
assembler (such as the Merlin) to write a Commodore 
64 assembly language program. 

USING THE MERLIN 64 

Merlin M can be loaded and executed like any other 
disk-based program. When you've successfully booted 
Merlins master disk, this menu will be displayed on your 
monitor screen: 



c 


: Catalog 


L 


: Load source 


S 


: Save source 


R 


: Read text file 


W 


: Write text tile 


D 


: Drive change 


E 


: Enter ED/ASM 





: Save object code 


G 


: Run program 


X 


: Disk command 


Q 


: Quit 



The choices on this menu can be used to instruct Merlin 
to do quite a tew things -from loading and saving as- 
sembly language programs (choices "L" and "S") to list- 
ing the names of the tiles a disk ("C") to running a nia- 
chiite language program ("G"). You can even tbmiat disks, 
.scratch tiles fnim disks, and perform numerous other 
disk-management functions by choosing "X". 

To write an assembly language program, you have to 
pick menu choice "E". That will that Merlin out of its 
"executive" (menu) mode and put it into its editor-assem- 
bler mode, which can be used for both writing and as- 
sembling assembly language programs. 

When you've made menu choice "E" and put Merlin 
into editor-assembler mode, the menu on your screen will 
disappear, and ycnfll sec a ":" prompt at the top of your 
screen. After that prompt, type 



—for "append." Merlin will display the number "I" on your 
screen. That "1" is an automatically generated line num- 
ber, and as soon as it appears, you can start typing an 
assembly language program. 

Let's pause for a word about line numbers. One Merlin 
feature that takes some getting used to is its automati- 
cally generating line numbers, beginning with number 
1 and progressing in increments of I. So you never have 
to type a line number when you're using the program. 
And when you add or delete lines, all affected line num- 
bers will change automatically. 

When Merlin generates and displays a line number, 
the number is always followed by a space and a Hashing 
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cursor. If you have Merlin up and running now. and if 
that's what you see on your screen, type an asterisk- iw';/)- 
oiii any additional spaces in front of it. Line 1 of your 
program should then look like this: 



1 * 



Merlin will then advance automatically to Line No. 
2. Following the numeral 2, again without any extra spac- 
ing, type 

* ADDNRS 

-and hit your RETURN ke\. Then, when Merlin advan- 
ces to Line 3, type another asterisk. 
This is what you should see on your screen now: 

1 * 

2 * ADDNRS 

3 * 
4 

In a moment, we'll discuss what those lines mean. 
First, though, let's gel a little more familiar with Merlin. 

At Line 4. press your carriage return, and you'll see 
Merlins. ":" prompt again. Then you can type "A" (for 
ADD) again, and continue writing your program. Or if 
you prefer, you can type some other command: "L" for 
list, for example. This will list your program, in its en- 
tirety, on your screen. 

Another command that can follow the ":" prompt is 
"D" tor DELETE. You would type the letter 'D" followed 
by the number of the line (or lines) you want to delete. 
Suppose you wanted to delete Lines 2 and 3 in the above 
listing. You would simply type 

D2,3 

after the ":" prompt. Try it! Then restore the lines you've 
deleted by using the "A" command. 

Still another command that can be used after the ":" 
prompt is "1" (for INSERT). Type the letter "I" followed 
by the number of the line where you want your new line 
inserted. Suppose you wanted to insert another asterisk 
at Line 2 in the above program. You could simply hit 
your RETURN key to get a colon prompt, then type 

12 

Try that, and you'll .see Merlin respond with the number 

2 

Now type an asterisk, followed by two carriage returns. 
Merlin will di.splay its ";" prompt again, and you can then 
type "L" for list. Then Merlin v. ill list your program, and 
you'll .see that another line containing an asterisk has in- 
deed been in.serted into your program, at Line 2. 



Speaking of lines, you can now delete that extra aster- 
isk you've just added to your program. Hit a carriage re- 
turn to get a colon prompt and type "D2." Then you can 
type "C for LIST, and you'll get a listing showing you 
that your program looks like this again: 

1 * 

2 * ADDNRS 

3 * 
4 

That looks okay, so now you can continue typing until 
you've entered the following program into your computer: 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



* ADDNRS 
ADDNRS 



ORG 
CLD 
CLC 
LDA 
ADC 
STA 
RTS 



$8000 



#2 

#2 
$02A7 



LISTING YOUR PROGRAM 

When you've reached Line 12 in your ADDNRS pro- 
gram, hit your RETURN key. Then you can type either 
L or LIST, and the complete program will be listed on 
your screen. Then you can examine the program line by 
line. 

Lines 1 through 3 of the ADDNRS program are com- 
ments. Line 2 explains what the program does, and lines 
1 and 3 set off the explanatory line by printing asterisks 
followed by white space. 

Line 4 is the origin line of the ADDNRS program. 
Every program written on Merlin 64 must start with an 
origin line. When a computer runs a machine language 
program, the first thing it does is go to a predetermined 
memory location and look at the value stored at that ad- 
dress. So when you write an assembly language program, 
the first thing you have to do is tell your computer where 
to start looking for the program in its memory. 

The origin directive looks like a simple line to write; 
but deciding where to start a program can be a difficult 
task. There are many blocks of memory in your computer 
that you can't use for assembly language programs be- 
cause they're reserved for other uses -for example, to 
hold your computer's operating system, disk operating 
system and BASIC interpreter. The best way to learn your 
way around your Commodore's memory banks is to con- 
sult a lot of memory maps and write a lot of assembly 
language programs. But in the early stages, it will usu- 
ally be safe to start your programs somewhere around 
memory location S8000 (or 32768 in decimal notation). 

Une 5 of the ADDNRS program contains the label 
ADDNRS and the assembly language instruction CLD. 



Labels always occupy ihs first field (the column that 
follows the line-number column) in an as.sembly language 
programs. And labels are very important in Commodore 
64 assembly language programs, since labels, not line 
numbers, are used to access routines. 

The abbreviation CLD in Line 5 is a mnemonic, or 
assembly language instruction. Mnemonics always occu- 
py the second field (after the line number) in a.ssembly 
language programs. The mnemonic CLD, which means 
"clear decimal mode," is often u,sed prior to arithmetical 
operations in Commodore 64 assembly language. Inside 
your computer's 6510 microprocessor, a status flag called 
the decimal flag can be cleared with the instruction CLD. 
When the decimal flag is cleared, the Commodore 64's 
6510 chip carries out all arithmetical operations using 
binary numbers. If the decimal flag is not cleared prior 
to an arithmetical operation, the operation is carried out 
using binary-coded decimal (BCD) numbers, a subject 
that will be discussed in later columns. 

In Line 6 of the ADDNRS program, the mnemonic 
CLC is used to clear another 6510 flag, called the carry 
flag. This flag, as explained last month, is affected by 
so many kinds of operations that it's good programming 
practice to clear it before every addition operation -and 
to set it before every subtraction operation, so that it can 
be used as a borrow. 

Line 7 of the ADDNRS program -"LDA #2"- is a very 
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straightforward instruction. When two numbers arc to 
be added in an assembly language program, one must 
be loaded into a special 6510 register called the accum- 
ulator. Then the second must be added to the number 
that has just been placed in the accumulator. The sum 
of the two numbers is then left in the accumulator. 

In Line 7 of the ADDNRS program, the in.struction 
LDA #2 is used to load the literal number 2 in the accum- 
ulator. The "#" sign in front of the number 2 means that 
it's a literal number, not an address. If the instruction 
in Line 7 were "LDA 2," the accumulator would be loadetl 
with the contents of Memor>' Address 0(X)2, not the num- 
ber 2. 

Liiw 8~ADC #2- adds the literal number 2 to the 
number in the accumulator (in this case, another 2). As 
mentioned, there is no 6510 assembly language in.struc- 
tion that means "add without carry." So the only way an 
addition operation can be performed without a carry is 
to clear the status register's carry flag and pertbrm an 
"add with carry" operation. 

Line 9— "STA S02A7"- completes the addition opera- 
tion in the ADDNRS progranr. This statement stores the 
contents of the accuniulutt^r in Memory Address S02A7 
(usually a safe spot for storing data). Note that the sym- 
bol "#" is not used belbre the operand ($02 A7). since 
in this case the operand is a memory address, not a lit- 
eral number. 

The nifiemonic RTS, in Line /fJ of the ADDNRS pro- 
gram, means "Return from Subroutine." The instruction 
RTS has two main uses in assembly language. When used 
at the end of a subroutine, it works like the RETURN 
instruction in BASIC: it ends the subroutine and returns 
to the main body of a program, beginning at the line fol- 
lowing the line in which the RTS instruction appears. 
But if used at the end of the main body of a program — 
as it is here -it ends the program. Usually, control of 
the computer then returns to whatever was in control be- 
fore the program began — usually the Comniodorc 64's 
built-in BASIC interpreter. 

ASSEMBLING AND SAVING 
YOUR PROGRAM 

To assemble the ADDNRS program using Merlin, all 
that is necessary is to type the command ASM follow- 
ing the ":" prompt. Merlin will then ask you if you want 
to update your source-code tile— with the current date, 
for example. If you don't want to do that, you can type 
"N" (for "no") and Merlin will assemble your source-code 
program -vcn' rapidly I 

After youu've assembled a source-code listing into ob- 
ject code, you can save both your source-code and ob- 
ject-code listings to disk. Here's how: 

First type "Q" (for QUIT) after the ":" prompt to get 
your assembler back into it.s "executive" (menu) mode. 



Merlin's main menu will then reappear. You can then save 
your -source code by selecting menu choice "S." and your 
object code by picking menu choice "O." 

After you type "S" or "O." Merlin will ask you what 
you'd like to name your program. You don't have to add 
a suffix to indicate whether it's a source-code listing or 
an object code program; Merlin will automatically add 
an "S" to the name of a source code listing, or "O" to 
the name of an object code listing. 

RUNNING AN ASSEMBLY 
LANGUAGE PROGRAM 

Once an assembly language program has been assem- 
bled into machine language, it can be executed without 
an as.sembler. When you have ADDNRS program assem- 
bled and safely stored on a disk, you can turn your com- 
puter off, turn it on again, and type the command 

LOAD " ADDNRS. 0", 8,1 

(As you may know, the number "\" at the end of a 
"LOAD" command informs your computer that the pro- 
gram being loaded is in machine language, and must 
therefore be loaded starting at the address that was des- 
ignated in the program's ORG line.) 

When the ADDNRS.O program has been loaded into 
memory, you can run it by typing the command 

SYS 32768 

That line will instruct your computer to run the pro- 
gram that now begins at Memory Address .^2768 ($80(X.) 
in hexadecimal notation). And. since the ADDNRS.O 
program has just been loaded into memory starting at 
that address, the program that will now be executed is 
the ADDNRS program. 

AND NOW FOR SOMETHING 
COMPLETELY DIFFERENT 

Unfortunately, the ADDNRS program doesn't appear 
to do much when it is loaded into memory and execu- 
ted. All it does is add a couple of numbers and place 
their sum into a certain memory location: and that isn't 
very exciting, since no keyboard inputs are requested, 
and nothing is displayed on your computer screen. 

So, in the listing on page 96, I've provided something 
to tide you over until next month's column. It's consid- 
erably more interesting than the ADDNRS program, and 
it will give you some practice in typing, assembling, sav- 
ing and running assembly language programs. Type the 
Flush program c)n page 96. as.semble it, and save it on 
a disk. Then run it. and watch the action. We'll discuss 
how it works in next month's column. D 

SEE PROGRAM LISTING OS PAGE 96 



Next month: Addressing the Commodore, Part /—the first of two columns that will explain the 13 addressing 
modes ased in Commodore 64 assembly language programming, including several .short illastrative programs. 
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l^?Ca^\MMINe CIIAUJENGIES 

By Dale Rupert 




ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commodares c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problems 
you are solving. Also show sample runs if possible, where 
appropriate. Programs on diskene are welcome, but they 
must be accompanied by listings. Also tell what makes 
your solutions unique or interesting, if they are. You must 
enclose a stamped, self-addressed envelope if you want 
any of your materials returned. 

Your original programming problems, suggestions and 
ideas are equally welcome! The best ones will become 
Commodares. 



Problem §19-1: Binary Palindrome 

Write a program to determine whether the binary 
equivalent of any input decimal number between and 
255 is a palindrome or not. Just one catch. Your pro- 
gram must not calculate the binary equivalent of the given 
number. (The eight-bit binary number must read the same 
forward or backward to be a palindrome.) 



Problem M19-2: Memory Locator 

This program does nothing more than tell where it is 
located in memory with an output such as this: 

Program Text : AAA - BBB 
Numeric Variables : CCC - DDD 
Arrays : EEE — FFF 
String Storage : GGG - HHH 

where for example AAA and BBB are the starting and 
ending memory addresses of the program's text. 

This is an easy problem if you know how to do it. Then 
again, aren't they all? 



Problem 019-3: Orthogonal Time 

At 3 o'clock and 9 o'clock the hands of the clock form 
a ninety degree angle. At what other times do the hands 
form a right angle? 



If you are tempted to say 12:15, consider the fact that 
the hour hand has moved by the time the minute hand 
gets to the three. Your program should list all the times 
to the nearest second at which the hands of a clock are 
ninety degrees apart. If you submit your program, also 
send the answers it gives. 



Problem ffl9-4: Screen Scramble 

Jesus Geliga-Torres (Aguadilla, PR) suggested the fol- 
lowing Commodare. Write a program which takes what- 
ever is on the screen and rewrites it in a top to bottom, 
right to left fashion. The top row of the screen becomes 
the right hand column. Whatever was in the upper left 
corner is now in the upper right comer. The contents 
of the lower left comer will now be in the upper left cor- 
ner. This should work for any text or text-mode graph- 
ics on the screen. !nuf ekil sdnuoS 



First we will discuss a solution to last month's Problem 
HlS-l: Cycling Function from Jim Speers (Niles, MI), then 
we will look at other readers' solutions to Convnodares 
from the March issue of Ahoy! 

Jim's solution to the problem he submitted is as follows: 

10 DEF FNC(D)=D - 2*5*(X=0) + 2*5*(X=100 
) 

When this statement is combined with the statements giv- 
en last month 



20 D=5 : X=0 

30 PRINT X : X=X+D 



D=FNC(D) : GOTO 30 



the output cycles back and forth from to 100 in steps 
of five. Line 10 is written so that you may replace the 
fives with any other step size you desire. Line 20 should 
be modified accordingly. Also you must be sure that the 
test values in line 10 (0 and 100) are reached exactly. If 
not, the output doesn't cycle. You might change the "=" 
to "< =" and "> =" if you are sure whether the end- 
points will be reached exactly. 

Here are two more general cycling functions which Jim 
suggested: 

10 FNU(V) = V - S*(V<MX) + (MX-MN)*(V=MX 
) 
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15 FND(W) = W + S*(W>MN) - (MX-MN)*(W=MN dies negalivc numbers as well: 



) 



MN. MX. and S arc ihe minimum value, maximum val- 
ue, and step si/c. FNU repeatedly eycles up from the 
minimum to the maximum value and then drops back 
U) the minimum value to start o\er. FND does just the 
opposite. Add line 5 and change lines 20 and 30 as Ibllows 
to see how these functions work: 

5 MN=45 : MX=99 : S=3 

20 X=MN : Y=MX 

30 PRINT X,Y : X=FNU(X) : Y=FND(Y) : GO 
TO 30 

Again, the cndptiints must he reached exactly with the 
chosen step size. 

Problem ffl5-l: Hiiuy Functions brought many re- 
sponses. Readers used two signitlcantty different meth- 
ods to check f(»r the "evenness"" of a number as tspified 
by these function deHnitions: 

FNA(X) = -(X/2 = INT(X/2)) 
FNA(X) = 1 - (X AND 1) 

The first uses a logical expression having a value -1 when 
true and v\ hen false. The minus sign in front produces 
the desired result that FNA(.X) equals 1 when X is even 
and when .X is (xld. The second uses a Boolean expres- 
sit)n which depends on the fact that the least significant 
bit in the binary representatit>n of an even number is 
and of an odd number is 1. (X AND 1) equals 1 for odd 
values of X and for even values of X . Refer to the Com- 
modore 64 Proi^ninwwr's Reference Guide for a discus- 
sion of the AND operator. 
A solution to the equilateral triangle area function is 

FNB(X) = X*X*SQR(3)/4 

or some variation on this theme. 

There was not much need ibr originality for the random 
number generator function. Most solutions looked es- 
sentially like this: 

FNC(X) = INT(X*RND(1)+1) 

where FNC has a random integer value from I to X inclu- 
sive. 

The fourth (unction as dcllned bs most readers was 
of the form 

FND(X) = INT(N*10*X + .5)/10*X 

This rounds the number N properly to X decimal places, 
but only if X is positive. A more general solution han- 
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FND(X) = SGN(X)*INT(ABS(N)*10"X-i-.5)/10*X 

Glenn D. Elliot (Rutherford, NJ) used string functions 
to arrive at his solution: 

FND(X) = VAL(LEFT$(STR$(N-l-5/10*(X-Fl)),LE 
N(STR$(INT(N)))-l-X-l-l)) 

Unfortunately, this doesn't work properh lor values of 
N less than I. Can someone 11 x it up? How about a func- 
tion that returns a value with X significant figures? For 
example, if N=1.2.'54 and X=2, the result is 1.3. or if 
N = I2.'>4 and X=2. the result is 1.^{K) or L.'^E.l Anyone 
up for the challenge? The string approach might be the 
way to go. 

Se\eral readers overlooked the requirement for Prob- 
lem ffl5-2: Prime Factors that the solution ci)ntain only 
one statement per line. It is surprising how the inability 
to put more than one statement per line can coinplicate 
a program, especially with IF-THEN statements. The so- 
lution from John Pragcr (Bay City, Ml) printed below 
is representative of mo.st of the other proper solutions. 

10 REM SOLUTION TO PROBLEM #15-2 : 

20 REM PRIME FACTORS 

30 REM BY JOHN PRAGER 

100 INPUT N 

110 FOR F=2 TO SQR(N)+.9 

120 IF INT(N/F)=N/F THEN 150 

130 NEXT F 

UO F=N 

150 IF A THEN PRINT"*"; 

160 PRINT F; 

170 A=-l 

180 N=N/F 

190 IF N>1 THEN 110 

John used the fact that yx>u don"t have to check for any 
factors larger than the square root of the given number. 
Any non-prime non-square number can be I'actored into 
factors, one of which is larger and the other of which 
is smaller than the square root of the number. Once you'\e 
found the smaller factiir. division gives the larger. One 
way to speed this program up is to check onh' for odd 
factors once all factors of two have been divided up. The 
solution from Dana Rousseau (Memphis. TN) below 
lakes that approach. 

1 REM SOLUTION TO PROBLEM #15-2 : 

2 REM PRIME FACTORS 

3 RFil BY DANA ROUSSEAU 

4 REM (( SIMON'S BASIC )) 
10 INPUT N 

20 K=2 

30 L=N-K*INT(N/K) 

AO IF L=0 THEN PRINT K;"*"; 
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50 IF L=0 THEN N=N/K 
60 IF K*L>2 THEN K=K+2: 
70 IF K*K<=N THEN 30 
80 PRINT N 



ELSE :K=IC+L 



Dana used Simons' BASIC, which allows the IF-THEN- 
ELSE statement. You can delete the ELSE part of line 
60 and add line 65 IF K*L< =2 THEN K=K+L if you 
don't use Simons' BASIC. According to Dana, line 60 (i) 
does not increment K if K divides N (so it can be tried 
again), (ii) increiTients by 1 if K=2 and N is odd. and 
(iii) increments by 2 if K>2 and K does not divide N. 

Jim Speers (Nile.s, MI) said that his solution found the 
prime number 999.999.937 (the largest prime number 
with fewer than ten digit,s) in just under 38 minutes. How 
do your times compare? 

Congratulations to Brad Cameron (Metcalfe. ONT). 
Daniel Knight (Grand Rapids, MI), David Alan Wright 
(New Britain. CT). Fred Atiyeh (Livonia, MI) and James 
Borden (Carlisle, PA) for their solutions to this problem. 

There were two types of solutions to Problem ^15-3: 
Separated Sentence, those that are printable on a printer 
and those that aren't. Those that aren't printable use the 
[UP] and [DOWN] statements to move the cursor be- 
tween characters. A printer is a sequential access device 
whereas the screen (or a plotter) is random access. A 
one-liner from Toin Nielsen (Bismarck, ND) is listed be- 
low. It is for a random access output. 

1 REM SOLUTION TO PROBLEM #15-3 : 

2 REM SEPARATED SENTENCE 

3 REM BY TOM NIELSEN 

4 REM 

10 INPUTB$:F0RI=1T0LEN(B$)STEP2:PRINTMID 
$(B$,I.1)""MID$(B$,I-|-1,1)"";:NEXT:PRINT" 



Of the solutions which are hard-copy printable, some 
stepped through the input string twice, printing every 
other letter on one line, then dropping to the next line 
to print the rest. An example of this method is the pro- 
gram listed here from Marcus F. Cooper (Mililani. HI). 

1 REM SOLUTION TO PROBLEM #15-3 : 

2 REM SEPARATED SENTENCE 

3 REM BY MARCUS F. COOPER, JR. 

4 REM 

10 INPUTS$:F0RU=1T0LEN(S$)STEP2:PRINTMID 

$(S$,U,1)+" ";:NEXT 

20 PRINT :F0RL=2T0LEN(S$)STEF2: PRINT" "+M 

ID$(S$,L,1);:NEXT 

Other readers created separate strings and printed them 
individually, as shown by this solution from Larry E. 
Cox (Tecumsch. MI). 

1 REM SOLUTION TO PROBLEM #15-3 : 

2 REM SEPARATED SENTENCE 
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3 REM BY LARRY E. COX 

4 REM 

10 INPUT"SENTENCE";A$ 

20 F0RX=1T0LEN(A$)STEP2:Y=X-I-1 

30 B$=B$-fMID$(A$,X,l)+CHR$(32):C$=C$-l-CHR 

$(32)-f-MID$(A$,Y,l):NEXT 

40 PRINTB$:PRINTC$ 

Daniel Knight (Grand Rapids, MI) suggested that you 
might encode a message with dummy letters this way. 
then write a program to decode it. The third type of so- 
lution above is probably the mo.st useful if you want to 
utilize this concept in cryptography. 

Problem ttl5-4: String Stretcher was meant to revive 
a classic geometry problem. Even after .seeing a proof 
of the solution, it is still a bit difficult to believe the re- 
sults. If the string is one yard longer than the circumfer- 
ence of a planet (any planet), the string could be placed 
around the planet at a uniform height of 1/(2*PI) yards 
above its surface. 

To see this, let CI be the circumference of the planet. 
The length of the string is then CI plus one yard. The 
radius of the planet is C1/(2*PI) and the radius of the 
string is (Cl-I-1)/(2*PI). Some algebraic manipulations 
show that the difference in the two radii is simply l/(2*PI). 
independent of CI. Therefore the .string will be approxi- 
mately six inches (0.16 yards) above the surface regard- 
less of the size of the planet. 

A few readers resorted to some craftiness by putting 
delay loops into their solutions so it looked like the com- 
puter really had to "think" about the solution before print- 
ing it. Of the readers who commented, all said they en- 
joyed this bit of trickery. Your comments as to whether 
or not you like a particular type of problem are always 
welcome. 

Solutions for March Commodares and various other 
problems and letters were received from the following 
people not mentioned above: 



Sam Krui:i;r (RivkforJ. ID 
Ton) Rupcrm rKilimat. BCt 
Sian Bciidingncld (Divvcr. DEl 
Rjck AL-ii!i[ii (Snniervillc. NJ) 
Dnn Allen iNecedah. WI) 
Jason Simpson (Vii.-lnria. BC* 
Russ BttinJer (Vicioria. BCl 
Keith Rasmussen (Blaine. MNl 
Paul Hawihiirnc (Wilbunon. OK) 
Peter Ljni (Langonburg, SK) 
R. Dam (Saratoga, NY) 
Tom McNeill (BallinwrL'. MD) 
Ffanfc Ci>ufley (Kcnesaw. NE| 
Brad Cameron (Metcalfe. ONT) 
Kenneth Karow (Chicago. 1L( 
.Steve FcIJ (New York, NY) 
Veronica Robin iNilcs. OH) 



James N. Manin (Keesler AFB, MS) 
Richard Cantion (Cambridge, ONTJ 
William Ingram (Cambridge. ONT) 
Trevor Green (Campsie NSW. Ausiraliai 
Glen Oldford (St. John*. NFLDi 
Erie Berni (Grande Prairie. .ALB) 
Mike Livcrinorc (Kati-us Ciiy. KSl 
James Dunavani (Gainesville, FL) 
Vadim Israiievich (N. HoIIvwixh!, CAt 
Margaret Wyldc (New Bloom field. MO) 
Walter Robinson (Bonner Springs. KSl 
John Northover (San Diego. CA) 
Cathy Lcvandofsky (Bainbridge, OH) 
Carl Lancaster (Oxon Hill, MDl 
L.M- Davis (Bainbridge. OH) 
Slanley Davis (Decatur. GAl 
Paul Lalli iMcAlesler, OK] 



A.S usual, solutions received by the middle of the month 
of the magazine's cover date are most likely to be listed 
and discussed, but you may send your solutions any time. 
I will respond to your questions or comments only if you 
enclose a self-addressed stamped envelope. You have 
some serious work ahead of you with this month's chal- 
lenges, so you'd better get busy! D 
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PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy.' Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 




n the following pages you'll find several pro- 
grams that you can enter on your Commo- 
dore computer. But before doing so, read this 
entire page carefully. 
To insure clear reproductions. AJiayrs program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets | ). For example: the 
SHIFT CLR/HOME command is represented onscreen 
by a heart ^ . The code we use in our listings is 
[CLEAR]. The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that key while holding 
down the SHIFT key. COMMODORE and SHIFT char- 
acters are represented in our listings by a lower-case "s" 
or "c" followed by the symbol of the key you must hit. 
COMMODORE J, for example, is represented by [c J], 



and SHIFT J by |s JJ. 

Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "|LEFT]"] would be 3 CuRSoR left com- 
mands in a row. (5 "[s EP]"] would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g., 22 spaces as [22 ""[. 

Sometimes you'll find a program line that's too long 
tor the computer to accept (C-64 lines are a maximum 
of 80 characters, or 2 screen lines long; VIC 20 lines, 
a maximum of 88 characters, or 4 screen lines). To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual. 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. {Please note: the Bug Repel- 
lent line codes that follow each program line, in the 
whited-out area, should not be typed in. See the instruc- 
tions preceding each program.) 

Also on the following page you will find Flankspeed, 
our ML entry program, and instructions on its use. D 

Call Ahoy! at 212-239-0855 with any problems. 
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IMPORTANT) Lelters on while background are Bug Repellent line codes. Do not enter them! This and the preceding explain these 
IIVI r Lin Irlll I . codes and provide other essential Information on entering Ahoy! programs Read these pages before entering programs. 

coruriiiiiclions tK\'tir. LIST Ciich line, spoi ihc cnnrs. and L-Drrcci 
them. 

•5000 F0RX=49152T049488:READY:P0KEX,Y:NEXT:END GJ 
•5001 DATA32, 161, 192, 165, 43, 133, 251, 165, 44, 133 DL 

•5002 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 

•5f/j3 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

• 5004 DATA230 , 252 , 76 , 43 , 192 , 76 , 73 , 78 , 69 , 32 Kf) 

■5005 DATA35, 32, 0,169, 35, 160, 192, 32, 30, 171 CA 

•5006 DATA160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 
•5007 DATA252,177,251,32,205, 189,169,58,32,210 JE 

•5008 DATA255, 169, 0,133, 253, 230, 254, 32, 37, 193 CL 

•5009 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 
-5010 DATA177, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 

•5011 DATA74, 74, 24, 105, 65, 32, 210, 255, 165, 253 EP 

•5012 DATA41, 15, 24, 105, 65, 32, 210, 255, 169, 13 GH 

•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 

•5014 DATA25 1,208, 2, 230, 252, 76, 11, 192, 169, 153 NG 

•5015 DATA160, 192,32,30,171,166,63,165,64,76 BF 

•5016 DATA231,192,96,76,73,78,69,83,58,32 EP 

•5017 DATAO, 169, 247, 160, 192, 32, 30, 171, 169, 3 PJ 

•5018 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 FK 

•5019 DATA80, 208, 245, 230, 254, 32, 210, 255, 169, 4 FL 
•5020 DATA166, 254, 160, 255, 32, 186, 255, 169,0, 133 CL 

•5021 DATA63, 133, 64, 133, 2, 32, 189,255,32,192 GC 

•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193, 96 NN 

•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 NH 

■5024 DATA96, 32, 205, 189, 169, 13, 32, 210, 255, 32 IM 

•5025 DATA204, 255, 169, 4, 76, 195, 255, 147, 83, 67 KG 

•5026 DATA82, 69, 69, 78, 32, 79, 82, 32, 80, 82 DC 

■5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 ML 

•5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 GN 

■5029 DATA113, 251, 69, 254, 170, 138,76,88,192,0 JK 

•5030 DATAO, 0,0, 230, 251, 208, 2, 230, 252, 96 NA 

•5031 DATA170, 177, 251, 201, 34, 208, 6, 165, 2, 73 DM 

•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 251, 201 JA 

■5033 DATA32, 208, 212, 198,254,76,29,193,0,169 FM 

•5034 DATA13, 76, 210, 255, 0,0,0 PA 



BUG REPELLENT 

This prngr;iiii will k-I ydii dchiiv; ;m\ Ahoy! prograin. Follow in- 
sinicliiins tor VIC 2i) (cassotic i>r ilisk) or CM. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

l-'iir lawt'llt-: Ivpc in and ?.;i\l- Ihc Biii; RrpcUcnl prajjrani. then 
type RUN 6.1(1001 RKTURNISYS K2K|RETURN|. II you t>pi\l tht' 
prcigrani properly, it will generate a set of two-letter line codes [hat 
will match those listed to (he right of (he respective program lines. 

Once you've got a working litti; Re;teilcnt. type in the program 
you wish to cheek. Save it and type the RUN and SYS commands 
listed ahove once again, then compare the line codes generated to 
those listed in the maga/ine. If \i>u spm a discrepancy, a typing 
error e.\ists in that line. Important: you niiisl use exactly the same 
spacing as the program in the maga/ine. Due to memory limitations 
on the VIC. the VIC /Jf/.v KcpclU'iil will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 as many times as you wish, but if you 
use the cassette for anything, type RUN 6.1(X)0 to restnre the 
Rrpcllfii!. 

When your program has heen disinfeclcJ you may delete all lines 
from d.KKKI on. (He sure the program \nu tvpe doesn't include lines 
above 630001) 

For disk: enter lint; Rcpcllfiil . save it. and type RUN: NEW 
[RETURN]. Type in the program you wish to cheek, then SYS 828. 

To pause Ihc hue codes listing, press SHII- 1". 

To send the list to the primer ivpe OPEN 4,4:CMD 4:SYS 
82X| RETURN]. When the eiirsor comes back, tvpe 
PRINT#4:CL0SE 4|RETURN]. 

• 63000 FORX=828T01 023 : READY : POKEX , Y : NEXT : END 
•63001 DATA169,0, 133,63, 133,64, 165,43, 133,251 
•63002 DATA165,44,133,252,160,0,132,254,32,228DF 

• 63003 DATA3 , 234 , 1 77 , 25 1 , 208 , 3 , 76 , 208 , 3 , 230 OE 
•63004 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 
•63005 DATA30, 203, 160, 0,1 77, 251, 170, 230, 251, 20 

8 KG 

•63006 DATA2, 230, 252, 177, 251, 32, 205, 221, 169, 58 JJ 

•63007 DAT,A32, 210, 255, 169, 0,133, 253, 230, 254, 32 OK 

•63008 DATA228, 3, 234, 165, 253, 160,0,170,177,251 LG 

■63009 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 

•63010 DATA138, 133, 253, 177, 25 1,208, 226, 165, 253 



AC 
JL 



M 

•63011 DATA240, 74, 74, 74, 74, 24, 105,65,32,210 
•63012 DATA255, 165, 253, 41, 15, 24, 105, 65, 32, 210 
•63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 
•63014 DATAl, 208, 249, 230, 63, 208,2, 230, 64, 230 
•63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 
■63016 DATA160,3,32,30,203,166,63,165,64,32 
•63017 DATA205, 221, 169, 13, 32, 2 10, 255, 96, 230, 25 
1 

•63018 DATA208,2,230,252,96,0,76,73,78,69 
•63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 
•63020 DAT A3 2, 0,0, 0,0,0 

C-64 VERSION 
By Michael Kleinert and David Barron 

l>pc 111. S.AVI-.. and RUN the tiu;.; R^jh-lltDf . 1 \ pc NIAV . il,en 
i_\ |x.' ill m l.O.M) the Ah(i\! program yon w ish to cheek. V\"heii that's 
ilone. S.'Wr; \oiir proeram (don't RUN id) and t\pe S^■S 44i.'i2 
[RETl^RN]. ' 

'\\i pause the listing depress and hold the SHIHT key. 

Compare the codes your machine generates to (he codes listed 
to the right ol the rcs]xvli\e (>rograni lines, tlyou scun a iliffercnce. 
.Ill error cvisls in that line, Joi down the number ol lines where 
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DD 
EK 

FO 
PK 
CB 
KH 

DP 

EL 
01 
FG 
LE 



aUi^C^mSSD FORTHEC.64 
By Gordon F. Wheat 

t'UmksiH'itl wilt allow you to enter machine language Atioy! pro- 
grams without any mistakes. Once you have typed the program in. 
save it lor t'uiurc Use, While entering an .ML program with 
/■'laiikspt'fil there is no iKi-'d to enter spaces or hit the carriage return. 
'I his is all tlnrie aulomalically . IT you make an error in a line a bell 
will ring ami you will be asked to enter it again. To l.().-\D in a 
program Sa\etl wnh l-'liink\pcfil use LO.AD ■■name". 1. 1 for tape, 
or LOAD ■■name".S. 1 for disk. The fimclioii keys may Iv used alter 
the starling and ending addresses ha\e been eniercJ. 
1 1 - S.AVEs what you ha\e entered so far. 
l.l-LOADs in a program worked on previously. 
15 -To continue on a line you sioppeil on after LOADing in the 
previously saved work. 

17 Scans through the program lo locate a panicnlar line, or to lind 
oul where you stopped the lasi imic you entered the piogr.nn. 17 
leniporarily Iree/es ihe outpui as well. 

•5 POKE53280,12:POKE53281,11 ■ 
•6 PRINT"[CLEAR][c 8][RVS0N][15" "]FLANKSPEED[ 
15" ")"; 

"]MISTAKEPROOF ML ENTRY P 



•10 PRINT"[RVS0M][5" 
R0GRAM[6" "]" 
■15 PRINT"[RVS0N][9" 

git nill 

>20 PRINT"[RVS0N][3" 



"]CREATED BY G. F. WHEAT [ 
"]COPR. 1984, ION INTERNA 



LL 
ED 
MC 
DM 



(DGJ 
33 DL 
1 DB 
OF 
I KN 
' CA 
) CE 
10 JE 
i CL 
i NB 
'4MB 
EP 
, GH 
' AN 
I NG 
BF 
EP 
PJ 
I FK 
FL 
CL 
GCI 
M 
NH 
IM 
KG 
DC 
ML 
GN 
JK 
NA 
DM 
JA 
FM 
PA 



IF 
FP 
MN 
GE 
HN 
IL 



ME 

LH 
IK 
PD 
LK 
lA 
FK 



TIONAL INC. [3" "]" DH 

•30 FOR A=5A272T054296:POKEA,0: NEXT IM 

•40 POKE54272,4:POKE5A273,48:P0KE54277,0:P0KE5 

'i278,249:P0KE54296,15 NH 

■70 F0RA=680T0699:READB:P0KEA,B:NEXT KG 
•75 DATA169, 251, 166, 253, 164, 254, 32, 216, 255, 96 HJ 
•76 DATA169, 0,166, 251, 164, 252, 32, 213, 255, 96 JB 
•80 B$="STARTING ADDRESS IN HEX":GOSUB2010: AD= 

B:SR=B HC 

•85 GOSUB2520:IFB=OTHEN80 FO 

•86 POKE251,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 KE 
•90 B$="ENDING ADDRESS IN HEX":GOSUB2010:EN=B 
•95 GOSUB251O:IFB=0THEN80 
•96 P0KE254,T(2)+T(1)*16:B=T(4)+1+T{3)*16 
•97 IFB>255THENB=B-255 : POKE254 , PEEK(254)+1 
•98 POKE253,B: PRINT 
•K/j REM GET HEX LINE 
■110 GOSUB3010:PRINT": [c P][LEFT]"; :F0RA=0T08 FG 
■120 F0RB=0T01:GOT0210 MD 

•125 NEXTB 

•130 A%(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 
•135 PRINT" [c P][LEFT-]"; 
•140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " 

• 1 50 F0RA=0T07 : T=T+A%( A) : IFT>255THENT=T-255 
•160 NEXT 
•170 IFA%(8)<>TTHENGOSUB1010:GOT0110 

• 180 F0RA=0T07 : POK EAD+A , A%( A) : NEXT : AD=AD+8 : GOT 
0110 MN 

•2r/j REM GET HEX INPUT AB 

•210 GETA$:IFA$=""THEN210 HO 

•211 IFA$=CHR$(20)THEN270 GC 

•212 IFA$=CHR$(133)THEN4000 MD 

•213 IFA$=CHR$(134)THEN4100 KF 

•214 IFA$=CHR$(135)THENPRINT" ":G0T04500 GE 
•215 IFA$=CHR$(136)THENPRINT" ":GOT04700 BJ 
•220 IFA$>"@"ANDA$<"G"THENT(B)=ASC(A$)-55:G0T0 

250 GM 

•230 IFA$>"/"ANDA$<":"THENT(B)=ASC(A$)-48:G0T0 

250 LE 

•240 GOSUB1100:GOT0210 LL 

•250 PRINTA$"[c P][LEFT]"; OA 

•260 GOT0125 CG 

•270 IFA>OTHEN280 OP 

•272 A=-1:IFB=1THEN290 OB 

•274 GOTO 140 CJ 

•280 IFB=0THENPRINTCHR$(20);CHR$(20);:A=A-1 HG 
•285 A=A-1 BE 

•290 PRINTCHR$(20);:G0T0140 KH 

•30fj REM LAST LINE AD 

•310 PRINT" ":T=AD-{INT(AD/256)*256) GJ 
•320 FORB=OTOA-l:T=T+A%(B):IFT>255THENT=T-255 PL 
•330 NEXT I A 

•340 IFA%(A)<>TTHENGOSUB1010:GOT0110 KF 
•350 F0RB=0T0A-1:P0KEAD+B,A%(B):NEXT HN 

•360 PRINT -.PRINT" YOU ARE FINISHED! ":G0T04000 ON 
•1000 REM BELL AND ERROR MESSAGES FL 

•1010 PRINT :PRINT"LINE ENTERED INCORRECTLY": PR 

INT:GGT01100 DH 

•1020 PRINT :PRINT"INPUT A 4 DIGIT HEX VALUE!": 

GOTOllOO JA 

•1030 PRINT :PRINT"ENDING IS LESS THAN STARTING 

!":B=0: GOTOllOO HD 

•1040 PRINT: PRINT'ADDRESS NOT WITHIN SPECIFIED 

RANGE! ":B=0:GOTO 1100 AG 

■1050 PRINT: PRINT"NOT ZERO PAGE OR ROM!":B=0:G 

OTOllOO KN 



•1060 PRINT"?ERROR IN SAVE": GOTOllOO EI 

•1070 PRINT"?ERROR IN LOAD": GOTO 1100 GL 
.•1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 

•1100 P0KE54276,17:POKE54276,16:RETURN BH 
•1200 0PEN15,8,15;INPUT#15,A,A$:CL0SE15:PRINTA 

$: RETURN IM 

•2f/jO REM GET FOUR DIGIT HEX PC 

'2010 PRINT :PRINTB$;:INPUTT$ GM 

•2020 IFLEN(T$)<>4THENG0SUB102O:GOT02010 II 
•2040 FORA=1T04:A$=MID$(T$,A,1):GOSUB2060:IFT( 

A)=16THENGOSUB1020:GOT02010 AD 

•2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 

T(4): RETURN GF 

•2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 

URN EH 

•2070 IFA$>"/"ANDA$<";"THENT(A)=ASC(A$)-48:RET 

URN KP 

•2080 T( A) =16: RETURN NP 

•2500 REM ADRESS CHECK LI 

•2510 IFAD>ENTHEN1030 MI 

•2515 IFB<SRORB>ENTHEN1040 MG 

•2520 IFB<2560R(B>40960ANDB<49152)0RB>53247THE 

N1050 MI 

•2530 RETURN IM 

•3f/J0 REM ADDRESS TO HEX EB 

•3010 AC=AD:A=4096:GOSUB3070 HG 

•3020 A=256:GOSUB3070 CE 

•3030 A=16:GOSUB307O PN 

•3040 A=l:GOSUB3070 MJ 

•3060 RETURN IM 

•3070 T=INT(AC/A):IFT>9THENA$=CHR$(T+55) :G0T03 

090 CJ 

•3080 A$=CHR$(T+48) JP 

■3090 PRINTA$;:AC=AC-A*T: RETURN AC 

•4r/jO A$="**SAVE**":G0SUB4200 AI 

■4050 0PEN1,T,1,A$:SYS680:CL0SE1 LH 

•4060 IFST=OTHENEND EO 

•4070 GOSUB1060:IFT=8THENGOSUB1200 FJ 

•4080 GOT04000 ff, 

•4100 AS="**LOAD**":GOSUB4200 Ab' 

•4150 OPEN1.T,0,A$:SYS690:CLOSE1 MF 

•4160 IFST=64THEN110 JH 

•4170 GOSUB1070:IFT=8THENGOSUB1200 CM 

■4180 GOT04100 FO 

•4200 PRINT" ":PRINTTAB(14)A$ FG 

•4210 PRINT :A$="":INPUT"FILENAME";A$ (M 

•4215 IFA$=""THEN4210 QF 

•4220 PRINT :PRINT"TAPE OR DISK?": PRINT DF 
• 4230 GETB$ : T=1 : IFB$="D"THENT=8 : A$="@0: "+A$ : RE 

TURN IG 

•4240 IFB$<>"T"THEN4230 FN 

•4250 RETURN IM 

•4500 B$="C0NTINUE FROM ADDRESS" :G0SUB2010:AD= 

B DK 

•4510 GOSUB2515:IFB=OTHEN4500 MA 

•4520 PRINT :G0T01 10 01 

•4700 B$="BEGIN SCAN AT ADDRESS":G0SUB2010:AD= 



B 



FH 
NK 
DI 



•4705 GOSUB2515:IFB=0THEN4700 

•4706 PRINT: GOTO4740 

•4710 F0RB=0T07:AC=PEEK(ADfB):GOSUB3030:IFAD+B 
=ENTHENAD=SR : GOSUB1080 : GOTOl 10 BK 

•4715 PRINT" ";:NEXTB EC 

•4720 PRINT: AD=AD+8 GN 

•4730 GETB$:IFB$=CHR$(136)THEN110 MN 

•4740 GOSUB3010: PRINT": ";:G0T04710 JD 
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IMPflRTflMTI '-s"s's°" white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain Ihese codes 
Hill Un IrllM I . and provide olher essential information on entering /^hoy.' programs. Refer to these pages before entering any programs! 



PRINT SHOP TO BIT MAP CONVEFTTOR 

FROM PAGE 50 



REM PRINT SHOP TO BIT MAP CONVERTER 
REM FOR PRINT SHOP GRAPHIC EDITOR 



REM 
REM 
REM 
REM 

REM 



* 

* 



LD 
BO 
KN 
CD 
DB 
IH 
JG 
BO 
KN 
BG 
PN 



(C) MARCH 3, 1984 * 
BY MORTON A. KEVELSON * 
P. 0. BOX 260 * 
HOMECREST STATION * 

8 REM * BROOKLYN, NY 11229 * 

9 REM ************+*!S;*****>!c***)|c 

■10 REM USE WITH DOODLE! FILES 
■19 ON FL GOT0200,400 
"20 POKE51,0:POKE52,57:POKE55,0:POKE56,57 OK 
■30 PRINT" [RVS0N]1[RVS0FF] BIT MAP TO PRI 
NT SHOP" PI 

•40 PRINT" [RVS0N]2[RVS0FF] PRINT SHOP TO 
BIT MAP" MB 

'50 PRINT"PRESS [RVS0N]1[RVS0FF] OR [RVSO 
N]2[RVS0FF]" 01 

■60 GET FL$:FL=VAL(FL$) KH 

■70 IF FL<1 OR FL>2 THEN G0T060 MC 
■80 INPUr'SOURCE FILE NAME";SF$ OK 
•90 INPUT"DESTINATION PILE NAME";DF$ FE 
■100 SA=24576:REM SA=DOODL! START ADDRESS BG 
110 TF=22528:REM PRINT SHOP START ADDRES 

JG 
BG 
OG 
OA 
BB 
KB 
PP 
LC 
NP 
LM 
CI 



120 LOAD SF$,8,1 

200 FOR RW=0T07 

210 FOR PS=0T07 

220 FOR C0=0T010 

230 BY=SA+C0*8+PS+RW*320 

240 POKE TF,PEEK(BY) 

250 TF=TF+1 

260 NEXTCO;NEXTPS:NEXTRW 

270 FORI=23100T023107 : POKEI , 0: NEXTI 

280 GOSUBBOO 

290 P0KE43,0:P0KE44,88:P0KE45,67:P0KE46, 

90:SAVE"PSTEMP",8 A J 

300 POKE43,l:POKE44,8:POKE45,PEEK(36864) 

:P0KE46, PEEK (36865) AO 

310 OPENl , 8 , 1 5 : PRINT! 1 , "RO : "+DF$+"=PSTEM 

P":CL0SE1:END CJ 

400 FOR CM=23552 TO 24551 JM 

410 POKE CM,1:NEXT CM NG 

420 FOR MM=SA TO SA+7999 EP 

430 POKE MM, 0: NEXT MM OP 

440 FOR RW=0T07 OG 

450 FOR PS=0T07 OA 

460 FOR C0=0T010 BB 

470 BY=SA+CO*8+PS+RW*320 KB 

480 P0KEBY,PEEK(TF) CF 

490 TF=TF+1 LC 

500 NEXTCO:NEXTPS:NEXTRW NP 

510 F0RRW=0TO7 X 
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•520 FORPS=0TO7 OA 

•530 BY=SA+88+PS+320*RW MC 

•540 P0KEBY,128 AO 

•550 NEXTPS:NEXTRW JB 

•560 F0RC0=0T010 BB 

•570 BY=SA+C0*8+1923 JL 

•580 POKEBY,255 AD 

•590 NEXTCO BD 

•600 GOSUB800 CI 

•610 POKE43,0:P0KE44,92:P0KE45,O:POKE46,l 

28 HO 

•620 SAVE"DDTEMP",8 AF 

•630 POK E43, 1:P0KE44, 8 :P0KE45, PEEK (36864) 

:P0KE46,PEEK(36865) AO 

•640 0PEN1,8,15:PRINT#1,"R0:"+DF$+"=DDTEM 

P":CL0SE1:END MK 

•800 P0KE36864,PEEK(45) EH 

•810 P0KE36865,PEEK(46) IF 

•820 RETURN IM 



SCREEN MAGIC TO DOODLE! CONVERTOR 

FROM PAGE 50 

•10 1=49152 AJ 

•20 READ A: IF A=256 THEN 40 FN 

•30 POKE I, A: 1=1+1: GOTO 20 OF 

•40 PRI NT" [CLEAR] [DOWN] [DOWN] [5" "] SCREEN 

MAGIC/DOODLE CONVERTER" BF 

•50 PRINT" [DOWN] [8" "](C) 1984 BY M. BEUT 
JER" KM 

•60 PRINT" [3"[D0WN]"] SELECT :"CHR$(13); 
CHR$(13);"[11" "]1 ~ DOODLE TO SCREEN MA 
GIC" HO 

•70 PRINT" [11" "]2 - SCREEN MAGIC TO DOOD 



LE" 



80 INPUT" [DOWN] [DOWN] [15" "]";A 
90 IFA<10RA>2THEN40 
100 IFA=1THEN150 
110 GOSUB500:SYS49152 
120 INPUT" ANOTHER CONVERSION"; A$ 
130 IFLEFT$(A$,1)<>"N"THEN40 
140 END 

150 GOSUB500:SYS49194 
160 GOTO 120 
500 PRINT"ENTER THE NAME OF THE EXISTING 
FILE." NB 

505 PRINT"D0 NOT INCLUDE. THE 'DD' PREFIX 



LO 
EE 
IK 
OL 
BK 
EO 
II 
IC 
CE 
CD 



ON" 
506 PRINT"D00DLE FILES!" 
510 INPUTA$:B=LEN(A$) 
520 IFA=1ANDB>8THEN510 
530 IFBM6THEN510 
540 F0RX=1T0B 

550 P0KE49292+X,ASC(MID$(A$,X,1)) 
560 NEXT 
570 P0KE49289,B 



GK 
DL 
JO 
LL 
DO 
KC 
HJ 
lA 
CA 



sf 
OA ' 

MC !• 
AO • 
JB ,• 
BB 
JL 
AD 
BD 
CI 

HO 

AF 

AO 

MK 
EH 
IP 
IM 



)R 

AJ 

FN 
OF 

BF 

KM, 



•580 B=B+2 BA 

590 IFB<17THENPOKE49290,B: RETURN KF 
600 POKE49290,16 CK 

610 RETURN IM 

49152 DATA 169,92,133,252.160.0,132,251 GL 
•49160 DATA 162,4,169,1,145,251,200,208 CO 
•49168 DATA 251,230,252,202,208,246,174,1 
37 IB 

•49176 DATA 192,160,141,169,96,32,62,192 ME 
•49184 DATA 169,92, 160,139,174, 138, 192,76 NN 
■49192 DATA 98,192,174,138,192,160,139,16 
9 CL 

■49200 DATA 92,32,62,192,169,96,174,137 CI 
■49208 DATA 192,160,141,76,98,192,142,81 EC 
49216 DATA 192, 140,83,192,141,94,192, 169 CI 
'49224 DATA 1,162,8,160,0,32,186,255 EI 
49232 DATA 169,0,162,0,160,192,32,189 MN 
49240 DATA 255,169,0,162,0,160,0,76 EE 
49248 DATA 213,255,142,116,192,140,118,1 
92 JG 

49256 DATA 133,252,169,1,162,8,160,0 JM 
49264 DATA 32,186,255,169,0,162,0,160 EM 
49272 DATA 192,32,189,255,169,0,133,251 BJ 
49280 DATA 169,251,162,255,160,127,76,21 
6 EG 

49288 DATA 255,0,0,68,68,256 MC 



•90 Cl=l : C0=0 : CC=16*C1 + CO QM 
•95 :REM »FILL SCREEN MEMORY WITH COLOR AI 
•100 FOR MM=1024 TO 2023 :POKE MM,CC:NEXT OM 



SPEEDING PIXELS 

FROM PAGE 37 LISTING 1 



HO 

I 

LO 

EE 

IK 

}L 

3K 

EO 

[I 

[C 

]E 

:d 

JB 

;k 

)L 
10 
L 

» 

;c 
ij 
:a 
;a 



REM 
REM 
REM 
REM 
REM 



RUPERT REPORT #19 
BASIC LISTING 1 
BIT MAP GRAPHICS 



REM DELETE LINES 65 AND 265 IF 

REM OBJECT FILES CLSCRN.O AND 

•8 REM PLOT.$C.O ARE ON THE DISK 

•9 RFil 

•10 ON LL GOTO 75,90 

•15 DEF FNSB(N)=PEEK(MM) OR 2[UPARR0W]N 

•20 DEF FNRB(N)=:PEEK(MM) AND ( 255-2 [UPARR 
OW]N) 

•30 VV=53248 :REM VIC~II REGISTER 
•35 :REM >» PUT BIT MAP AT 8192 «< 

(SET BIT 3 OF VIC REGISTER 24) 
•40 MM=VV+24 : POKE MM,FNSB(3) 
•45 :REM »> SELECT BIT MAP MODE <« 

(SET BIT 5 OF VIC REGISTER 17) 
•50 MM=VV+17 : POKE MM,FNSB(5) 
•55 BASE=8192 :REM START BIT MAP MEMORY 
•60 :REM >» CLEAR BIT MAP <« 
•65 FOR M=8000 TO 16191 :POKE M,0 :NEXT : 
GOTO 90 

•70 LL=1 : L0AD"CLSCRN.0",8,1 

•75 SYS 828 

•80 LL=2 : L0AD"PL0T.$C.0",8, 1 

•85 :REM >» SELECT COLORS CI AND CO <« 



JD 
PD 
DE 
KG 
JD 
JA 
MP 
LK 
JD 
MJ 
LG 

FP 

FL 

JA 
00 

DH 
JM 

KD 
HG 

EP 
HC 

EF 
HN 
LC 



:REM:: MAIN PROGRAM 



194 
•195 
•196 

•200 PI=3. 14159265 t K=PI/40 
•205 POKE 198,0 :REM CLEAR KBD BUFFER 
•210 Z0=49155:Z1=49156:Z2=49157 
•220 FOR 0=5 TO 95 STEP 8 
•230 FOR X=0 TO 319 STEP 6-L0G(Q) 
•240 XMSB=0 : XLSB=INT(X) 
•250 IF XLSB>255THENXLSB=XLSB-256:XMSB=1 
•260 Y=Q*SIN(X*K)+95 
•265 GOSUB 400 : GOTO 280 
•270 POKE ZO,XLSB:POKE Z1,XMSB:P0KE Z2,Y: 

SYS 49152 

•280 IF PEEK (198)00 THEN 300 
•290 NEXT: NEXT 
•295 IF PEEK(198)=0 THEN 295 :REM CHECK K 

BD BUFFER 
•296 : 

•297 ::REM:: BACK TO NORMAL :: 
•298 : 

•300 :REM >» RESET BIT MAP MODE <« 
•310 MM=VV+17 : POKE MM,FNRB(5) 
•320 :REM >» RESTORE SCREEN MEMORY BASE 
POKE MM,FNRB(3) 

:REM CLEAR SCREEN 



•330 MM=VV+24 

•340 PRINT CHR$(147) 

•390 END 

•394 : 

•395 tREM >» TURN ON PIXEL AT (X,Y) 

•396 :REM >» THIS SUBROUTINE IS REPLACED 

BY THE ML ROUTINE CALLED AT LINE 270 
•397 : 

•400 BIT=7-(X AND 7) 
•410 MM=BASE + 320*INT(Y/8) + 8*INTCX/8) 

+(Y AND 7) 
•420 POKE MM,FNSB(BIT) 
•430 RETURN 



DI 
AE 
DI 
GE 
KG 
EE 
LA 
BB 
ME 
MB 
FL 
IC 

CD 
CO 

EF 

DN 
DI 
EL 
DI 
HJ 
JN 
GC 
MP 
EG 
IC 
DI 
OB 

BH 
DI 
PJ 

AP 
MO 
IM 



Listings 2 and 3 are Flankspeed versions of the CLRSCR.O 
and PLOT.SC.S programs listed in assembled format in the 
Speeding Pixels article (on pages 39 and 43 respectively). 

LISTING 2 
First byte: 033C Last byte: 0368 Sys to Start- 828 
033C: 4C 44 03 00 20 IF 40 00 4F 
0344: AD 3F 03 85 FB AD 40 03 A6 
034C: 85 FC AE 41 03 AO 00 AD 10 
0354: 43 03 88 91 FB DO FB E6 64 
035C: FC CA 30 07 DO F4 AC 42 10 
0364: 03 DO EF 60 00 88 

LISTING 3 
First byte: COCO Last byte: COAF Sys to Start: 49152 
COOO: 4C 08 CO 3F 01 00 00 20 75 
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IMPflDTAMTI '-^"^''^ °" white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
llVlrUn IMN I ! and provide ottier essential information on entering /(hoy.' programs, Referlo these pages before entering any programs! 



C008: 


AD 


04 


CO 


FO 


13 


A9 


01 


8D 


B6 


COlO: 


04 


CO 


AD 


03 


CO 


30 


04 


C9 


44 


C018: 


40 


30 


05 


A9 


3F 


8D 


03 


CO 


C7 


C02 0: 


AD 


05 


CO 


10 


OB 


29 


7F 


C9 


21 


C028; 


48 


30 


05 


A5 


C7 


8D 


05 


CO 


66 


C030: 


AD 


05 


CO 


29 


F8 


85 


FB 


A9 


FO 


C038: 


00 


85 


FC 


A5 


FB 


18 


2A 


26 


C4 


C040: 


FC 


2A 


26 


FC 


2A 


26 


FC 


85 


5D 


C048: 


FD 


A5 


FC 


85 


FE 


A5 


FD 


2A 


3B 


C050: 


26 


FC 


2A 


26 


FC 


18 


65 


FD 


3C 


CO 58: 


85 


FD 


A5 


FC 


65 


FE 


85 


FE 


67 


C060: 


AD 


05 


CO 


29 


07 


18 


65 


FD 


7F 


C068: 


85 


FD 


A5 


FE 


69 


00 


85 


FE 


7E 


C070: 


AD 


03 


CO 


29 


F8 


18 


65 


FD 


7F 


C078: 


85 


FD 


AD 


04 


CO 


65 


FE 


85 


58 


C080: 


FE 


AD 


06 


CO 


18 


65 


FD 


85 


F4 


C088: 


FD 


AD 


07 


CO 


65 


FE 


85 


FE 


E4 


C090: 


AD 


03 


CO 


29 


07 


85 


F3 


A9 


5D 


C098: 


07 


38 


E5 


FB 


AA 


38 


A9 


00 


46 


COAO: 


2A 


CA 


10 


FC 


85 


FC 


AO 


00 


C5 


C0A8: 


Bl 


FD 


05 


FC 


91 


FD 


60 


FF 


4A 



FROM PAGE 18 ' SONG MAKER 
1 REM "SONG MAKER" IL 

3 REM THIS PROGRAM LETS YOU COPY THE FR$ 
STRINGS FROM THE SCREEN DISPLAY KI 
5 REM OR SAVE THE FR$() STRINGS ON DISK 
FOR RETRIEVAL BY "SONG LOADER" EN 

7 REM YOU TYPE IN SONGS AT 9500-9890 AND 

NAME THE SONG SAVE FILE AT 200 KB 
10 GOSUB 9000: GOTO 80 IB 

60 FOR N=l TO LEN(MD$(PH)):SYS MM LH 
62 F$=FR$(N,PH) DG 

65 SYS M ON 

66 IF DS=1 THEN GOSUB 500 OE 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 
):NEXT JB 

68 REM SYS MM: REM STACCATO NOTES GA 

69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 IJ 

70 SYS MM: RETURN AO 

80 PRINT "[CLEAR] [13"[D0WN]"]SHIFT = 'PL 
AY NEXT PHRASE'" KA 

81 PRINT "[4" "]Q = 'QUIT'" LA 

82 PRINT "[4" "]S = 'SAVE SONG ON DISK'" JM 

83 PRINT "[4" "]D = 'MAKE DATA STATEMENT 
S AT LINE[12" "]9400'" GA 

84 PRINT "[4" "]P = 'PRINT EACH F$ STRIN 
G AS IT" GG 

85 PRINT "[9" "] PLAYS; WAIT FOR KEYPRESS 

OK 

86 PRINT "[9" "] BETWEEN NOTES'" NN 

87 PRINT "[4" "]N = 'NO PRINTING OP F$ S 
THINGS ' " GJ 

•90 DS=0 HO 



100 PRINT "[HOME] [16" "][HOME]PHRASE "PH DD 
110 IF PEEK (653)00 THEN GOSUB 60: GOTO 
100 ND 

120 A=PEEK(203):IF A=64 THEN 110 PK 
130 IF A=62 THEN POKE 198,0:SYS 65126:RE 
M "WARM START" ENDS PROGRAM IC 

135 IF A=41 THEN DS=1:G0T0 110: REM SET F 
LAG TO PRINT FR$() VALUES OJ 

140 IF A=13 THEN PRINT "[H0ME]SAVING DIS 
K FILE": GOSUB 200 GD 

145 IF A=39 THEN DS=0:REM SET FLAG TO ST 
OP PRINTING FR$() 00 

150 IF A=18 THEN 20000 :RFjM MAKE DATA STA 
TEMENTS AND WIPE OUT LINES>9400 FG 
190 GOTO 110 CC 

200 OPEN 2, 8, 2, "@0: SONG #1,S,W" MO 
210 CR$=CHR$(13) :PRINT#2,ES%CR$EV%CR$LD% 
CR$; PI 

215 FOR 1=0 TO 2:PRINT#2,G%(I)CR$;:NEXT: 
FOR 1=0 TO 2 NF 

220 PRINT#2,AK%(I)CR$DY%(I)CR$SN%(I)CR$R 
E%(I)CR$; PL 

225 FOR N=0 TO 1 :PRINT#2,PW%(I,N)CR$; :NE 
XT: NEXT BA 

230 FOR 1=0 TO 9:PRINT#2,DU%'fI)CR$; :NEXT PH 
235 FOR PH=0 TO ES%:PRINT#2,MD$(PH)CR$ j : 
PRINT "<"; KM 

240 FOR N=l TO LEN(MD$(PH)) :FOR 1=1 TO 6 PF 
245 PRINT#2,MID$(FR$(N,PH),I,1)CR$;:NEXT 
: NEXT: NEXT DM 

290 CLOSE 2 :PH=0: RETURN FI 

500 PRINT "[HOME] [DOWN] [DOWN] NOTE [5" "][ 
3"[LEFT]"]"N:F0R 1=0 TO 2: PRINT "[20" "] 
":NEXT LJ 

505 PRINT "[H0ME][3"[DOWN]"]":FOR 1=1 TO 

5 STEP 2 MJ 

507 PRINT "[15" "][15"[LEFT]"]"; GA 
510 PRINT ASC(MID$(F$,I,1))" "ASC(MID$( 
F$, 1+1,1))" ":NEXT GO 

515 PRINT "PRESS SHIFT TO GO ON" CB 
520 IF PEEK(653)=0 THEN 520 HO 

525 PRINT "[UP][21" "]" BL 

530 RETURN IM 

8998 REM SET UP SOUND SHAPE FD 

9000 F$="F" : 1=0 : N=0 : VC=0 : M=848 : MM=823 : RE 

M M&MM PUT ML IN CASSETTE BUFFER JG 

9001 PH=0:ES%=8:DIM MD$(ES%) ,G%(2) ,AD(2) 
,Y%(2) MK 

9002 DIM ME$(ES%,2),MV$(ES%,2) ED 

9003 REM PREVIOUS LINE:9002 DIM ME$(ES%, 
2),MV$(ES%,2) GE 

9004 DIM DU%(9),PI%(168,1),AK%(2),DY%(2) 
,SN%(2),RE%(2),WF%(2),PW%(2,1) IP 

9008 REM ATTACK— VOICES 0,1,2 KG 

9009 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 
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•9010 AK%(0)=0:AK%(1)=0;AK%(2)=0 CP 
•9015 FOR 1=0 TO 2: AK%(I)=AK%(I)*16:NEXT FF 
•9018 REM DECAY—VOICES 0,1,2 PK 

•9019 REM NUMBER FROM TO 15; LOWER NUMB 

ER=FASTER DECLINE GA 

•9020 DY%(0)=5:DY%(1)=3:DY%(2)=3 AL 
•9028 REM SUSTAIN— VOICES 0,1,2 FC 
•9029 REM NUMBER FROM TO 15; LOWER NUMB 

ER=S0FTER VOLUME DURING SUSTAIN JM 
•9030 SN%(0)=2:SN%(1)=0:SN%(2)=0 CI 
•9035 FOR 1=0 TO 2:SN%(I)=SN%(I)*16:NEXT BD 
•9038 REM RELEASE— VOICES 0,1,2 OK 
•9039 REM NUMBER FROM TO 15; LOWER NUMB 

ER=FASTER DROP TO SILENCE AT END PJ 
•9040 RE%(0)=0;RE%(1)=3:RE%(2)=5 BG 
•9048 REM SET SOUND ADDRESSES JC 

•9050 FOR 1=0 TO 2: AD( I) =54277+7*1: NEXT IL 
•9058 REM POKE ADSR ENVELOPES JL 

•9060 FOR 1=0 TO 2: POKE AD(I),AK%(I) OR D 

Y%(I) DM 

•9065 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 
•9067 REM SET UP GATES JN 

•9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 

LUES): DJ 

•9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 

PULSE 0N=64 (SET WIDTHI); NOISE 0N=128 IL 
•9070 WF%(0)=32:WF%(1)=64:WF%(2)=64 LH 
•9075 G%(0)=WF%(0)0R 1:G%(1)=WF%(1) OR 3: 

G%(2)=WF%(2) OR 1 CG 

•9078 REM SET PULSE WIDTHS AC 

•9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 



TE 



MG 
PB 
HJ 
KB 



• 9080 PW% (0 , 0)=200 : PW%( , 1 )=3 

•9081 PW%(1,0)=200:PW%(1,1)=10 

•9082 PW%(2,0)=200:PW%(2,1)=7 

•9085 FOR 1=0 TO 2: VC=54274+I*7:F0R N=0 T 

1 OB 

•9086 POKE VC+N,PW%(I,N):NEXT:NEXT NG 
•9098 REM SET UP DURATIONS ME 

•9100 FOR 1=0 TO 9: READ DU%(I):NEXT MB 
•9105 DATA 40,96,128,192,256,384,512,640, 

768,1024 EG 

•9196 REM MACHINE LANGUAGE ROUTINE (AT M) HM 
•9198 REM FIND ADDRESS OF F$ AND PUT IT I 

N ZERO PAGE AT 139, 140 MA 

•9200 N=PEEK(45)+256*PEEK(46)+3:Y%=N/256: 

X%=N-Y%*256 IF 

•9205 POKE M, 173: POKE M+1,X%:P0KE M+2,Y%: 

N=N+1:Y%=N/256:X%=N-Y%*256 AN 

•9210 POKE M+3,133:P0KE M+4,251:P0KE M+5, 

173: POKE M+6,X%;P0KE M+7,Y% NK 

-9215 POKE M+8,133:P0KE M+9,252:POKE M+10 

,160: POKE M+11,0 HA 

•9220 POKE M+12,162:P0KE M+13,0 GG 
•9223 REM GET EACH PITCH FROM F$ AND PUT 

IT IN FREQUENCY REGISTER CH 

•9225 FOR I=M+14 TO M+54 STEP 8:P0KE 1,17 

7:P0KE 1+1,251 KF 



9230 POKE 1+2, 157: POKE 1+3,0: POKE 1+4,21 
2 HK 

9235 POKE 1+5, 200: POKE 1+6, 162: READ A:P0 
KE 1+7, A: NEXT IE 

9236 DATA 1,7,8,14,15,4 AK 
9238 REM GATE EACH SOUND OPEN MC 

9240 N=0:FOR I=M+59 TO M+71 STEP 6 BJ 

9241 POKE I,173:A=MM-3+N;Y%=A/256:X%=A-2 
56*Y%:POKE I+1,X%:P0KE 1+2. Y% PO 

9242 POKE 1+3, 141: READ A: POKE 1+4, A: POKE 
I+5,212:N=N+1:NEXT DG 

9243 DATA 4,11,18 PB 
9248 REM GARBAGE COLLECTION ME 
9250 FOR I=M+77 TO M+90:READ A:POKE I, A: 
NEXT CE 

9255 DATA 164,52,165,51,105,6,144,1,200, 
133,51,132,52,96 BN 

9258 REM GATE-OFF ML ROUTINE AT MM LA 

9260 FOR I=MM TO MM+16 STEP 8 GG 

9261 POKE I,173:Y%=3:X%=34+(I-MM)/8:P0KE 
I+1,X%:P0KE 1+2, Y%: REM USES 820-822 BB 

9262 POKE 1+3,41: POKE 1+4,254 DI 

9263 POKE 1+5, 141: READ A: POKE 1+6, A: POKE 
I+7,212:NEXT:P0KE MM+24,96 KD 

9264 DATA 4,11,18 PB 

9268 REM SET WAVEFORMS WITH GATES OFF NK 

9269 REM STORED AT 820-822— LINE 9261 R 
EQUIRES THIS (820=HEX 03 34) BO 

9270 POKE 820,G%(0):P0KE 821,G%(1):P0KE 
822,G%(2):SYS MM OB 

9297 REM SET FILTER AND VOLUME BN 

9298 REM FILTER FREQUENCY DE 

9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 

9300 X%=3:Y%=150 GF 
9305 POKE 54293, X%: POKE 54294, Y% KJ 

9308 REM FILTER ON? DD 

9309 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4; 1 
&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

9310 X%=0 FM 

9318 REM FILTER RESONANCE CE 

9319 REM PEAK VOLUME (0=LOW, 15=HIGH) FH 

9320 Y%=14 JL 
9325 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

9328 REM SELECT FILTER TYPE CP 

9329 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 
S=4;L0-BAND=3;HI-BAND=6;ALL=7 MH 

9330 X%=1 FP 
9335 X%=X%*16 LC 

9338 REM SELECT OVERALL VOLUME FJ 

9339 REM 15=HIGH, 0=LOW PB 

9340 Y%=15:P0KE 54296,X% OR Y% EK 
9345 EV%=2:REM SET NUMBER OF VOICES (MIN 
US 1) IN 
9350 GOTO 9400 GG 

9358 REM MUSIC DATA LOADER (EFFECTIVE ON 
LY IF 'MAKE DATA' WAS EXECUTED NP 

9359 REM DURING MAIN LOOP) PB 
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9360 READ ES%:READ LD%:DIM FR$(LD%,ES%) NA 
9365 FOR PH=0 TO ES%:READ MD$(PH):FOR N= 
1 TO LEN(MD$(PH)): PRINT "!"; MG 

9370 FOR 1=1 TO 6:READ A:FR$(N,PH)=FR$(N 
,PH)+CHR$(A):NEXT:NEXT:NEXT AD 

9375 PH=0: RETURN DO 

9397 REM SET UP PITCH ARRAY DK 

9398 REM EACH NOTE, IN ALL ITS OCTAVES JB 

9399 RFJ1 C NE 

9400 X%=3:G0SUB 9A90 CB 

9401 DATA 12,1,24,2,48,4,97,8,195,16,135 
,33,15,67,30,134 IF 

9402 REM D NH 

9403 X%=4:G0SUB 9490 PC 

9404 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 PA 

9405 REM E (F-FLAT) MH 

9406 X%=5:G0SUB 9490:Y%=13:GOSUB 9495 IL 

9407 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 HM 

9408 REM F (E-SHARP) DB 

9409 X%=6;G0SUB 9490:Y%=19:G0SUB 9495 IK 

9410 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 IL 

9411 REM G NI 

9412 X%=7:G0SUB 9490 PF 

9413 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

9414 REM A NC 

9415 X%=1:G0SUB 9490 OH 

9416 DATA 195,1,134,3,12.7,24,14,49,28,9 
9,56,199,112,143,225 PI 

9417 REM B NF 

9418 X%=2:G0SUB 9490 PE 

9419 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

9420 RVM D-FLAT (C-SHARP) JL 

9421 X%=11:G0SUB 9490:Y%=17:G0SUB 9495 NH 

9422 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

9423 REM E-FLAT (D-SHARP) FD 

9424 X%=12:G0SUB 9490:Y%=18:G0SUB 9495 GF 

9425 DATA 62,1,125,2,251,4.247,9,239,19, 
223,39,191,79,126,159 FB 

9426 REM G-FLAT (F-SHARP) HH 

9427 X%=14:G0SUB 9490:Y%=20:G0SUB 9495 IM 

9428 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

9429 REM A-FLAT (G-SHARP) HE 

9430 X%=8:G0SUB 9490:Y%=21:G0SUB 9495 LD 

9431 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9432 REM B-FLAT (A-SHARP) FP 

9433 X%=9:G0SUB 9490:Y%=15:G0SUB 9495 GB 

9434 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

9435 REM C-FLAT CH 

9436 X%=10:G0SUB 9490 EO 



IP 
IP 
CL 

FG 
PD 
EG 
BJ 



9437 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9438 REM B-SHARP IN 

9439 X%=16:G0SUB 9490 CE 

9440 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
9485 GOTO 9500 FP 

9489 REM READ PITCHES NA 

9490 FOR 1=0 TO 147 STEP 21 -.READ PI%(I+X 
%,0),PI%(I+X%,1):NEXT: RETURN FN 

9494 REM IDENTICAL PITCHES GA 

9495 FOR 1=0 TO 147 STEP 21;PI%(I+Y%,0)= 
PI% ( I+X% , 0) : PI%( I+Y% , 1 )=PI%( I+X% , 1 ) LN 

9496 NEXT: RETURN EJ 

9497 REM EACH PHRASE HAS ONLY ONE DU%(PH 

) STRING, NO MATTER HOW MANY VOICES AO 

9498 REM EACH PHRASE HAS ONE ME$(PH,VC) 
& ONE MV$(PH,VC) STRING PER VOICE 

9499 REM PHRASE 

9500 MD$(0) = "100[7"1"]00[6"1"]" 

9501 ME$(0,0)="[4"F"]GAFG@[4"F"]GAFGE" 

9502 MV$(0,0)="6[17" "]" 

9503 ME$(0, 1)="CC@DCGD[4"C" ]@DCGDCC" 

9504 MV$(0,1)="45 45354545 453545" 

9505 ME$(0,2)="FA@EAGBC[c B]FA@DAGBC[c B 

]" CA 

9506 MV$(0,2)="34 34343434 343434" EI 

9509 RFJi PHRASE 1 10 

9510 MD$(1) = "100[14"1"]" PO 

9511 ME$(1,0)="[4"F"]GAFGEF[7"@"]" JP 

9512 MV$(1,0)="6[16" "]" OE 

9513 ME$(1,1)="FC@ECDBCCFCECDACA" FD 

9514 MV$(1,1)="45 454 545454 5" BO 

9515 ME$(l,2)="FA@EADBC[c B]FAEADFCF" II 

9516 MV$(1,2)="34 34343434343435" 01 

9519 RFH PHRASE 2 JB 

9520 MD$(2) = "100[7"1"]00[6"1"]*' JF 

9521 ME$(2,0)="[c B]@[c B][c B]CD[c B]C@ 

[c B]@[c B][c B]CD[c B]CA" BA 

9522 MV$(2,0)="6[3" "]7 67 6[3" "]7 676" IH 

9523 ME$(2,l)="@F@@FCGFF(aF@(aFCGFF" DA 

9524 MV$(2,1)=" 5[3" "]4545[5" "]4545" PB 

9525 ME$(2,2)="[c B]D@GDCEF[c E][c B]D@G 
DCEF[c E]" HD 

9526 MV$(2,2)="35 35353535 353535" HE 

9529 REM PHRASE 3 JA 

9530 MD$(3) = "100[12"1"]" DH 

9531 ME$(3,0)="[c B]@[c B][c B]CD[c B]CA 

[c B][5"@"]" AG 

9532 MV$C3,0)="6[3" "]7 676[6" "]" OJ 

9533 ME$(3,l)="[c B]F@AFGEFF[c BJFAFGF" JI 

9534 MV$(3,1)="45 454545454545" LI 

9535 ME$(3,2)="[c B]D<aADGCF[c E][c B]DAD 
GD" BA 

9536 MV$(3,2)="35 353535353535" MM 

9539 RF^ PHRASE 4 JD 

9540 MD$(4) = "[16"1"]" HA 

9541 ME$(4,0)="F[c B]C@C[3"@"]D[c B]C[5" 
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@"]" PF 

•9542 MV$(4,0)="6 7[6" "]67[5" "]" CF 
•9543 ME$(4,l)="[3"F"]AG[c B]AADGFAG[c B] 

AA" NK 

•9544 MV$(4,1)="45454545 4 54545" LH 
•9545 ME$(4,2)="FDFFGEAF[c B][3"F"]GEAF" JH 
•9546 MV$(4,2)="3535353534353535" DK 
•9549 REM PHRASE 5 JC 

•9550 MD$(5) = "[18"1"]" PO 

•9551 ME$(5,0)="CFG@G@@GAFG[7"@"]" EC 
•9552 MV$(5,0)="6[17" "]" OG 

•9553 ME$(5,1)="@BGEGFGE@BFECCAFGC" MA 
•9554 MV$(5,1)=" 4 54545 4 5453 [3" '*]" NN 
•9555 ME$(5,2)="@AECDBECGAGFC[c B]AFGF" BI 
■9556 MV$(5,2)=" 4 54 534343 2 1" MA 
•9559 REM PHRASE 6 JF 

•9560 MD$(6) = "100[7"1"]00[6"1"]" HJ 
•9561 ME$(6,0)="[4"F"]GAFG@[4"F"]GAFGE" GI 
•9562 MV$(6,0)="6[17" "]" BF 

•9563 ME$(6,I)="CC@DCGD[4"C"]@DCGDCC" DA 
•9564 MV$(6,1)="45 45354545 453545" KD 
•9565 ME$(6,2)="FA@EAGBC[c B]FA@DAGBC[c B 

]" IK 

•9566 MV$(6,2)="34 34343434 343434" NC 
•9569 REM PHRASE 7 JE 

•9570 MD$(7) = "100[13"1"]" EP 

•9571 ME$(7,0)="F@FFGAFGEC[3"@"]C@@" BB 
•9572 MV$(7,0)="6[12" "]7 " MJ 

•9573 ME$(7,l)="FC@ECDBCC@A@[c B]CF@" GE 
•9574 MV$(7,1)="45 454 5 4 5 " EL 
•9575 ME$(7,2)="FA(aEADBC[c B]FFGRA[c E]@" NN 
•9576 MV$(7,2)="34 343434343435 " BI 
•9579 REM PHRASE 8 JH 

•9580 MD$(8) = "[4"1"]00[12"1"]" GF 
•9581 ME$(8,0)="DC@C@[c B]AFGDF[3"@"]F[3" 
@"]" OA 

•9582 MV$(8,0)="7[4" "]6[8" "]7[3" "J" EN 
•9583 ME$(8,l)="[c B]CACA(a@C@CFDC[c B]A@F 
^ FG 

•9584 MV$(8,1)="5[9" "]46 5 4" II 
•9585 ME$(8,2)="DCFCF@CAC[c B]F[c B]AGF@F 
@" FG 

•9586 MV$(8,2)="54535 4 3435[4" "]3 " LP 
•9898 REM SET UP CONVERSION TABLE KO 
•9900 DIM TB%(255) EG 

•9910 FOR 1=0 TO 255:TB%(I)=0:NEXT CE 
•9911 FOR 1=65 TO 72:TB%(I)=I-64:NEXT NB 
•9912 FOR 1=193 TO 199:TB%(I)=I-178:NEXT EN 
•9913 FOR 1=8 TO 14:READ A:TB%(A)=I:NEXT AD 
•9914 REM NEXT LINE SAYS: 9915 DATA 176,1 

91,188,172,177,187,165 EB 

•9915 DATA 176,191,188,172,177,187,165 CB 
•9916 REM (LINE 9915 IS DELETED BY 'MAKE 

DATA' OPTION) LD 

■9919 REM FIND LONGEST PHRASE, AND DIM FR 

$ TO EXACT LENGTH NEEDED DM 

•9920 LD%=0:FOR 1=0 TO ES%:X%=LEN(MD$(I)) 

:IF X%>LD% THEN LD%=X% FJ 



•9921 NEXT I A 

•9925 DIM FR$(LD%,ES%) CN 

•9928 REM CONVERT STRINGS TO USABLE FORM IG 
•9930 FOR PH=0 TO ES%:FOR N=l TO LEN(MD$( 
PH)):FR$(N,PH)="" bP 

•9935 FOR VC=0 TO EV%:X%=TB%(ASC(MID$(ME$ 
(PH,VC),N,1))) NG 

•9940 V$=MID$(MV$(PH,VC),N,1):IF V$<>" " 
THEN Y%(VC)=21*VAL(V$) JN 

•9945 IF X%<>0 THEN X%=X%+Y%(VC) DA 
•9950 FR$(N,PH)=FR$(N,PH)+CHR$(PI%(X%,0)) 

:FR$(N,PH)=FR$(N,PH)+CHR$(PI%(X%,1)) DP 
•9955 NEXT ia 

•9960 IF EV%<2 THEN FR$(N,PH)=FR$(N,PH)+L 
EFT$(FR$(N,PH),2) AL 

•9965 IF EV%<1 THEN FR$(N,PH)=FR$(N,PH)+L 
EFT$(FR$(N,PH),2) FK 

•9970 PRINT ".";:NEXT:NEXT NI 

•9980 PH=0 HP 

•9990 RETURN im 

•19998 REM ROUTINE TO MAKE DATA STATEMENT 
S THROUGH FORCED SCREEN READS JC 

•20000 PRINT "[ CLEAR ][ 3" [ DOWN ]"]MAKING DA 
TA STATEMENTS WIPES OUT ALL THE" MI 
•20001 PRINT "LINES NOT DIRECTLY NEEDED." 

: PRINT: PRINT" [7" "JPROCEED? (Y OR N)" LM 
•20002 A=PEEK(203):IF (A039) AND (A<>25) 

THEN 20002 AC 

•20003 IF A=39 THEN 80 PI 

•20005 A=49152 PB 

•20006 FOR PH=0 TO ES%:B=LEN(MD$(PH)) tPOK 
E A,B:A=A+1:PRINT ">";:FOR N=l TO B KD 
•20007 POKE A,ASC(MID$(MD$CPH),N,1)):A=A+ 
1:NEXT OF 

•20008 FOR N=l TO B:FOR 1=1 TO 6: POKE A, A 
SC(MID$(FR$(N,PH),I,1)):A=A+1 HN 

• 20009 NEXT : NEXT : NEXT : B=A-1 : A=49152 : C=940 
0:CR$=CHR$(13):D=4 CJ 

•20010 PRINT "[CLEAR] [DOWN] [DOWN] 9350 REM 
DELETED"CR$"9390 DATA"ES%"[LEFT] ,"LD%CR 
$; IG 

•20011 PRINT "9002 REM DELETED"CR$; MA 
•20015 GOSUB 20085: IF D>8 THEN 20091 GJ 
•20020 GOSUB 20080: IF D>8 THEN 20090 CB 
•20025 IF A>=B THEN 20092 BE 

•20030 IF N=0 THEN 20015 GE 

•20035 GOTO 20020 HN 

•20040 PRINT "[CLEAR] [DOWN] [DOWN]"; :D=0:C 
R$=CHR$(13):G0T0 20025 LF 

•20041 PRINT "[CLEAR] [DOWN] [ DOWN] ";:D=0:C 
R$=CHR$(13):G0T0 20020 KO 

•20079 REM ROUTINE TO PRINT FR$() DATA ST 
ATEMENT ON SCREEN DG 

•20080 PRINTC"DATA";:F0RI=1T0 6:PRINTPEEK 
(A)"[LEFT],";:A=A+l:NEXT:C=C+l:D=Dfl:N=N 
-1 JI 

•20081 PRINT CHR$(20)CR$;: RETURN OK 
•20084 REM ROUTINE TO PRINT MD$() DATA ST 
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ATEMENT ON SCREEN U 

•20085 A$="":N=PEEK(A):A=A+1:F0R 1=1 TO N 

:A$=A$+CHR$(PEEK(A)):A=A+1:NEXT GB 
•20086 PRINT C"DATA"CHR$(34)A$CHR$(34)CR$ 

; : C=C+1 : D=D+1 : RETURN CD 

•20088 REM SET UP LAST LINE TO EXECUTE FR 

OM SCREEN BM 

•20090 PRINT "A="A"[LEFT]:B="B"[LEFT]:C=" 

C" [ LEFT ] : N="N" [ LEFT ] ; GOTO 20040"CR$ ; : GOT 

20095 NP 

•20091 PRINT "A="A"[LEFT]:B="B"[LEFT]:C=" 

C" [ LEFT ]:N="N"[ LEFT]: GOTO 20041"CR$; :G0T 

2f/j95 FG 

•20092 PRINT "C="C-1":G0T0 20100"CR$; :GOT 

20095 ON 

•20094 REM LOAD KEYBOARD BUFFER WITH CARR 

lAGE RETURNS AND GO READ SCREEN LO 
•20095 FOR 1=631 TO 640:POKE I,13:NEXT:P0 

KE 198, 10: PRINT "[HOME]"; : END OE 

•20100 A=PEEK(43)+256*PEEK(44):PRINT "[CL 

EAR]"; BN 

•20105 B=PEEK(A+2)+256*PEEK(A+3):A=PEEK(A 

)+256*PEEK(A+l) EB 

•20106 PRINT "[HOME] "A" "B" "C LA 
•20U0 IF B=C THEN 20120 GK 

•20115 GOTO 20105 IH 

•20120 POKE A, 0: POKE A+l,0:A=A+2 OH 
•20125 B=INT(A/256):C=A-256*B FE 

•20130 PRINT "[ CLEAR ] [DOWN] [DOWN] 150" :PRI 

NT "83" IJ 

•20135 PRINT "P0KE45,"C"[LEFr]:P0KE46,"B" 

[ LEFT ] : POKE47 , "C" [ LEFT ] : P0KE48 , "B" [ LEFT ] 

:P0KE49,"C EH 

•20140 PRINT "P0KE50,"B"[ LEFT]: GOTO 10" NJ 
•20145 FOR 1=631 TO 640: POKE I, 13: NEXT: PO 

KE 198, 10: PRINT "[HOME]"; : END OE 



SONG LOADER 
1 REM "SONG LOADER" NM 

3 REM THIS IS AN EXAMPLE OF HOW TO LOAD 
AND USE A SONG STORED ON DISK JB 

5 REM USING THE PROGRAM "SONG MAKER" PD 

6 REM JD 

7 REM LINE 10 AND LINE 9000 MUST EXECUTE 
BEFORE ANYTHING ELSE IN YOUR PROGRAM FD 

9 REM JD 

10 GOSUB 9000: GOTO 80 IB 
60 FOR PH=0 TO ES%:FOR N=l TO LEN(MD$(PH 
)):SYS MM MC 
62 F$=FR$(N,PH) DG 
65 SYS M ON 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 

) :NEXT JB 

68 REM SYS MM: REM STACCATO NOTES GA 

69 NEXT: NEXT EF 

70 SYS MM: RETURN AO 
80 PRINT "[CLEAR] WHEN SONG ENDS, PRESS": 
PRINT: PRINT "SHIFT TO REPEAT SONG" PC 
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•85 PRINT "OR Q TO QUIT" FP 

•100 IF PEEK(653)<>0 THEN GOSUB 60:G0T0 1 
00 ND 

•110 IF PEEK(203)=62 THEN POKE 198,0:SYS 
65126 HG 

•190 GOTO 100 CF 

•8997 REM JD 

•8998 REM SET UP SOUND AND LOAD SONG MN 
•8999 REM JD 

• 9000 F$="F" : 1=0 : N=0 : VC=0 :M=848 : MM=823 : RE 
M M & MM PUT ML IN CASSETTE BUFFER JG 
•9001 PH=0:DIM G%(2) ,AD(2) ,DU%(9),AK%(2), 

DY%(2),SN%(2),RE%(2),WF%(2),PW%(2,1) DI 
•9007 REM JD 

•9008 REM OPEN SONG FILE & GET # OF PHRAS 

ES AND # OF VOICES JJ 

•9009 REM JD 

•9010 OPEN 2,8,2,"0:S0NG #1,S.R" OM 
•9015 INPUT#2,ES%,EV%,LD% JC 

•9017 REM JD 

•9018 REM DIMENSION KEY VARIABLES NH 
•9019 REM JD 

•9020 DIM FR$(LD%,ES%),MD$(ES%) CC 

•9027 REM JD 

•9028 REM LOAD THE REMAINDER OF THE VARIA 

BLES FROM THE SONG FILE GI 

•9029 REM JD 

•9030 FOR 1=0 TO 2:INPUT#2,G%(I):NEXT JO 
•9031 FOR 1=0 TO 2:INPUT#2, AK%(I) ,DY%(I) , 

SN%(I),RE%(I) CB 

•9032 FOR N=0 TO 1:INPUT#2,PW%(I,N) :NEXT: 

NEXT JM 

•9033 FOR 1=0 TO 9:INPUT#2,DU%(I):NEXT MP 
•9034 FOR PH=0 TO ES%:INPUT#2,MD$(PH) :FOR 

N=l TO LEN(MD$(PH)) BL j 

•9035 FOR 1=1 TO 6:GET#2,A$,B$ PJ | 

•9036 IF A$="" THEN A$=CHR$(0) OE 

•9037 FR$(N,PH)=FR$(N,PH)+A$:NEXT:NEXT:NE i 

XT JE 

•9040 CLOSE 2 NC 

•9041 RF^ JD ' 

•9042 REM SET UP ENVELOPES BM 

•9043 REM JD 

•9044 FOR 1=0 TO 2:AD(I)=54277+7*I:NEXT IL 
•9045 FOR 1=0 TO 2: POKE AD(I),AK%(I) OR D 

Y%(I) DM 

•9046 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 
•9047 REM JD 

•9048 RFJ4 SET PULSE WIDTHS AC 

•9049 REM JD 

•9050 FOR 1=0 TO 2:VC=54274+I*7:F0R N=0 T 

1 OB 

•9051 POKE VC+N,PW%(I,N):NEXT:NEXT NG 
•9066 REM JD 

•9067 RFH SET FILTER AND VOLUME BN 
•9068 REM FILTER FREQUENCY DE 

•9069 REM LOW BYTE (0-7) X%; HIGH BYTE (0 

-255) Y% PA 



•9070 X%=3:Y%=150 GF 

•9071 POKE 54293, X%: POKE 5A29A,Y% KJ 

•9072 REM FILTER ON? DD 
•9073 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4j 1 

&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

•9074 X%=0 FM 

•9075 REM FILTER RESONANCE CE 

•9076 REM PEAK VOLUME (0=L0W, 15=HIGH) FH 

•9077 Y%=I4 JL 

•9078 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

•9079 REM SELECT FILTER TYPE CP 
•9080 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 

S=4;L0-BAND=3;HI-BAND=6;ALL=7 MH 

•9081 X%=1 FP 

•9082 X%=X%*16 LC 

•9083 REM JD 

•9084 REM SELECT OVERALL VOLUME FJ 

•9085 REM 15=HIGH, 0=LOW PB 

•9086 Y%=15 JK 

•9087 POKE 54296, X% OR Y% HN 

•9197 REM JD 

•9198 REM MACHINE LANGUAGE ROUTINE AT M CE 

•9199 REM JD 
•9218 REM FIND ADDRESS OF F$ AND PUT IT I 

N ZERO PAGE AT 139, 140 MA 

•9219 REM JD 

•9220 N=PEEK(45)+256*PEEK(46)+3:Y%=N/256: 
X%=N-y%*256 IF 

•9221 POKE M, 173: POKE M+1,X%:P0KE M+2,Y%: 

N=N+1:Y%=N/256:X%=N-Y%*256 AN 

•9222 POKE M+3,133:POKE M+4,251:P0KE M+5, 

173: POKE M+6,X%:P0KE M+7,y% NK 

•9223 POKE M+8, 133: POKE M+9, 252: POKE M+10 

,160: POKE M+11,0 HA 

•9224 POKE M+12,162:POKE M+13,0 GG 
•9228 REM JD 

•9229 REM GET EACH PITCH FROM F$ AND PUT 

IT IN FREQUENCY REGISTER CH 

•9230 FOR I=M+14 TO M+54 STEP 8: POKE 1,17 

7: POKE 1+1,251 KF 

•9231 POKE I+2,157:POKE I+3,0:P0KE 1+4,21 

2 HK 

•9232 POKE I+5,20O:POKE I+6,162:READ A:P0 

KE 1+7, A: NEXT IE 

•9233 DATA 1,7,8,14,15,4 AK 

•9238 REM JD 

•9239 REM GATE EACH SOUND OPEN MC 

•9240 N=0:FOR I=M+59 TO M+71 STEP 6 BJ 
•9241 POKE I,173:A=MM-3+N:Y%=A/256:X%=A-2 

56*Y%:P0KE I+1,X%:P0KE 1+2, Y% PO 

•9242 POKE 1+3, 141: READ A: POKE 1+4, A: POKE 

I+5,212:N=N+1:NEXT DG 

•9243 DATA 4,11,18 PB 

•9247 REM jD 

•9248 REM GARBAGE COLLECTION ME 

•9250 FOR I=M+77 TO M+90:READ A: POKE I, A: 

NEXT CE 

•9255 DATA 164,52,165,51,105,6,144,1,200, 



133,51,132,52,96 BN 

9257 REM JD 

9258 REM GATE-OFF ML ROUTINE AT MM LA 

9259 REM JD 

9260 FOR I=MM TO MM+16 STEP 8 GG 

9261 POKE I,173:Y%=3:X%=34+(I-MM)/8;P0KE 
I+1,X%:P0KE 1+2, Y%: REM USES 820-822 BB 

9262 POKE 1+3,41: POKE 1+4,254 DI 

9263 POKE 1+5, 141: READ A: POKE 1+6, A: POKE 
1+7, 212: NEXT: POKE MM+24,96 KD 

9264 DATA 4,11,18 PB 

9267 REM jD 

9268 REM SET WAVEFORMS WITH GATES OFF NK 

9269 REM STORED AT 820-822— LINE 9261 RE 
QUIRES THIS (820=HEX 03 34) BO 

9270 POKE 820, G%(0): POKE 821,G%(1):P0KE 
822,G%(2):SYS MM OB 
9280 PH=0 HP 
9290 RETURN IM 

SUMMERTIME 
1 REM "SUMMERTIME" ON 

3 REM ADD THESE LINES TO "SONG MAKER" TO 

CREATE THE SONG "SUMMERTIME" CF 

5 REM FROM "PORGY AND BESS" BY GEORGE AN 
D IRA GERSHWIN LP 

7 REM FIRST DELETE ALL "SONG MAKER" LINE 
S ABOVE 9500 AND BELOW 9900 EP 

9001 PH=0:ES%=3:DIM MD$CES%),G%(2) ,AD(2) 
.Y%(2) OL 

9010 AK%(0)=2:AK%(1)=0:AK%(2)=4 LN 
9020 DY%(0)=5:DY%(1)=0:DY%(2)=8 LP 
9030 SN%(0)=4:SN%(1)=0:SN%(2)=1 LN 
9040 RE%(0)=2:RE%(1)=0:RE%(2)=3 CL 
9070 WF%(0)=16:WF%(1)=32:WF%(2)=64 EI 
9075 G%CO)=WF%(0)OR 7:G%(1)=WF%(1) OR 1: 
G%(2)=WF%(2) OR 1 LC 

9080 PW%(0,0)=200:PW%(0,1)=12 BP 

9081 PW%(1,0)=200:PW%(1,1)=12 HL 

9082 PW%(2,0)=200:PW%(2,1)=3 KF 
9105 DATA 24,128,192,256,384,512,640,768 
,896,1024 PM 
9300 X%=3:Y%=150 QF 
9310 X%=0 FM 
9320 Y%=14 JL 
9330 X%=1 FP 
9340 Y%=15:P0KE 54296, X% OR Y% EK 
9345 EV%=0 EC 

9499 REM PHRASE IP 

9500 MD$(0) = "0420093041 [3"3"] 5082" BP 

9501 ME$(0,0)="[c E]ECE[c E]E@[s C]DCDEC 
A@E@" IM 

9502 MV$(0,0)="4[12" "]3[3" "]" OL 

9509 REM PHRASE 1 10 

9510 MD$(1) = "O430280[5"3"]9[6"0"]31" AG 

9511 ME$(l,0)="FEC[s C]DD[c CJCACACBAGFE 
DCB@" EB 

9512 MV$(1,0)="4[7" "]34343[6" "]2 " JJ 
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FLA 

FROM PAGE 77 

This program requires use of an assembler. 
See introductory article for explanation. 
1 * 



H 



IRADnDTAMTI Letters on white background are Bug Repellent line codes Do not enter ttiem! Pages S5 and 86 explain ttiese codes 
IIVIrUnlHIM I ! and provide other essential information on entering 4hoy.' programs. Refer to these pages before entenng any programs! 

•9519 REM PHRASE 2 JB -9055 DATA 164,147,177,155,133,149 BC 

•9520 MD$(2) = "04202406420[3"3"]5082" GD -9056 DATA 177,158,141,10,144 OA 

•9521 ME$(2,0)="[c E]EC[c E]EE[c E]EDC[s -9057 DATA 177,163,141,11,144 LP 

C]DECA[c E]E@" IE -9058 DATA 177,167,141,12,144 PC 

•9522 MV$(2,0)="4[13" '•]3[3" "]" DD -9059 DATA 32,190,2,169,0,133,150,230,147 
•9529 REM PHRASE 3 JA ,198,148,208,222.96 DO 

•9530 MD$(3) = "[4"4"]360[4"5"]09[4"0"]2" FE -9100 SL=48:REM # OF NOTES LF 

•9531 ME$(3,0)="EGEGAC[c E]EDCCBAF[s F]G[ -9110 FOR 1=1 TO SLiREAD B:B=B+128:IF B>2 

s G]A" DA 55 THEN B=0 PB 

■9532 MV$(3,0)="3[4" "]4[5" "]3 5[4" "]" CG -9115 M3$-M3$+CHR$(B) :NEXT MG 

•9120 FOR 1=1 TO SL:M1$=M1$+CHR$(0):NEXT JH 
VIC MUSIC -9125 FOR 1=1 TO SL:MD$=MD$+CHR$(25) :NEXT FE 
•1 REM "VIC MUSIC" CP "9130 M2$=M1$ AE 

•10 MD$="@":M1$=MD$:M2$=MD$:M3$=MD$:G0SUB '9200 DATA 87,81,79,67,67,47,67,67,79,67, 

9000 PE 79,87 CD 

•100 SYS SR EF -9210 DATA 81,79,81.73,73,47,73,73,81,73, 

•190 END IC 81,91 HH 

•9000 SR=828 PN -9220 DATA 87,81,79,67,67,47,67,67,79,67, 

•9005 POKE 170,50 :REM TEMPO EG 79,87 CD 

•9006 POKE 659,1 :REM ATTACK BI ^9230 DATA 81,79.81,79,81,73,87,81,79,67, 

•9007 POKE 660, 200: REM DECAY BO 67,67 AC 

•9008 POKE 661,15-0 :REM SUSTAIN VOLUME IN -9990 RETURN IM 

•9009 POKE 662,10 :REM RELEASE MF 

•9010 FOR 1=663 TO 676: READ A: POKE I,A:NE 

XT PC 

•9011 DATA 166,169,169,5,133,171,198,171, 

208,252,202,208,245,96 EA 

•9015 FOR 1=677 TO 682: READ A: POKE I,A:NE 

XT IG 

■9016 DATA 202,234,234,208,251,96 NO 
•9020 FOR 1=684 TO 767: READ A: POKE I,A:NE 

XT PC 

•9025 DATA 32,151,2,136,208,250,96 FG 
•9030 DATA 173,14,144,41,240,5,150,141,14 

,144,96 CJ 

•9035 DATA 160,15,230,150,32,179,2,174,14 

7,2,32,165,2,136,208,242 PI 

•9036 DATA 162,1 ,32,153,2 BJ 

•9037 DATA 172,149,2,198,150,32,179,2,174 

,148,2,32,165,2,136,208,242 AF 

•9038 DATA 166,170,134,169,164,149,32,172 

,2 JL 

•9039 DATA 164,150,240,14,198,150,32,179, 

2,174,150,2,32,165,2,136,208,242,96 AP 
•9045 FOR I=SR TO SR+89:READ A: POKE I,A:N 

EXT LD 

•9050 DATA 169,0,133,150,133,147.160,2,17 

7,45,133,148 EA 

•9051 DATA 200,177,45,133.155.200,177,45, 

133,156 DE 

•9052 DATA 160,10.177,45,133,158,200,177, 

45,133,159 CN 

•9053 DATA 160,17,177,45,133,163,200,177, 

45,133,164 MG 

•9054 DATA 160,24,177,45,133,167,200,177, 

45.133,168 GC 



2 * FLASH 






3 * 






4 


ORG 


$8000 


5 EOL 


EQU 


13 


6 BUFLEN 


EQU 


40 


7 FILLCH 


EQU 


$20 


8 CHROUT 


EQU 


$FFD2 


9 CLRSCR 


EQU 


147 


10 * 






11 


JMP 


START 


12 * 






13 TEXT 


ASC 


'FLASH: C64 OWNER B 


REAKS MACHINE CODE! ' 


14 


DFB 


13 


15 * 






16 * CLEAR 


SCREEN 


17 * 






18 START 


JSR 


CLEAR 


19 * 






20 * CLEAR 


TEXT 


BUFFER 


21 * 






22 


LDA 


#FILLCH 


23 


LDX 


#BUFLEN 


24 STUFF 


DEX 




25 


STA 


TXTBUF.X 


26 


BNE 


STUFF 


27 * 







33 
34 
35 
36 
37 
38 
39 
40 



43 

44 

45 

46 

47 

48 

49 NI 

50 

51 

52 * 

53 AC 
54 
55 
56 

57 * 

58 * 

59 * 



70 
71 
72 
73 
74 
75 

76 * 

77 TX 

78 * 
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* STORE MESSAGE IN BUFFER 
* 



28 

29 

30 

31 LOOPl 

32 

33 

34 

35 

36 

37 

38 * 

39 

40 * 

41 PRINT 

42 L00P2 
43 

44 

45 

46 

47 

48 

49 NEXT 

50 

51 

52 * 

53 AGAIN 
54 

55 
56 
57 
58 
59 



LDX 
LDA 

STA 
CMP 
BEQ 
INX 
CPX 
BCC 



#0 

TEXT,X 

TXTBUF.X 

#EOL 

PRINT 

#BUFLEN 
LOOPl 



PRINT MESSAGE 



LDX 
LDA 
PHA 
JSR 
PLA 
CMP 
BNE 
JMP 
INX 
CPX 
BCC 

JSR 
JSR 
JSR 
JMP 



#0 
TXTBUF.X 

CHROUT 

#E0L 
NEXT 
AGAIN 

#BUFLEN 
L00P2 

DELAY 
CLEAR 
DELAY 
PRINT 



ROUTINE TO CLEAR SCREEN 



60 CLEAR 

61 

62 

63 * 

64 

65 * 

66 DELAY 

67 XLOOP 

68 YLOOP 
69 

70 
71 
72 
73 
74 
75 

76 * 

77 TXTBUF 

78 * 



LDA 
JSR 
RTS 



DELAY LOOP 



LDX 
LDY 
DEY 
NOP 
NOP 
NOP 
BNE 
DEX 
BNE 
RTS 



#CLRSCR 
CHROUT 



#$FF 
#$FF 



YLOOP 
XLOOP 



DS BUFLEN 



t 



FROM PAGE 73 

•1 REM BEFORE LOADING P0KE44,64:P0KE256*6 
4,0:NEW FM 

•2 SO = PEEK(46)*256+PEEK(45) BF 



•3 SI = S0-210:S2 = SO-150 CF 

•9 PRINT" [CLEAR] ""IN ADDITION TO NORMAL C 

URSOR MOVEMENTS," pc 

•10 PRINT"THE FOLLOWING CODES ARE USED: F 

-FAST" HF 

•II PRINT"SCAN; S-SLOW SCAN; D-DRAW; E-ER 

ASE" pE 

•12 PRINT"I-INITIAL POINT OF SLANTED LINE 

;" HL 

■13 PRINT"L-LINE BACK TO INITIAL POINT; F 

1- NJ 
•14 PRINT"DUMP SCREEN IMAGE TO PRINTER" LK 

•15 PRINT"F7-CLEAR SCREEN" DH 
•16 INPUT "DO YOU WANT TO PLAY SQUARES"; A 

N$ KH 

•17 SYS SI CF 
•18 X=0:Y=0:SV=0:BY=8192:F=1:D=0:E=0:GOSU 

B 1000 BH 

■19 IF AN$="Y" THEN GOSUB 200 HJ 

•20 GET M$:IFM$="" THEN 20 FJ 

•21 IF M$=CHR$(136) THEN 17 KH 

•22 IF M$="F" THEN F=5:G0TO 20 AE 

■24 IF M$="S" THEN F=1:G0T0 20 HP 

•25 IF M$="D" THEN D=N0T D:E=0:G0T0 20 HD 

■26 IF M$="E" THEN E=NOT E:D=0:G0T020 BM 

•27 IF M$="I" THEN XI=X:YI=Y:G0T0 20 AJ 

■28 IF M$="L" THEN 100 IH 

•29 IF M$=CHR$(133) THEN 1100 PN 
•30 IF M$="[UP]" THEN Y=Y-F:IF Y<0 THEN Y 

=0 LE 

•35 IF M$="[DOWN]" THEN Y=Y+F:IF Y>199 TH 
EN Y=199 NG 

•40 IF M$="[RIGHT]" THEN X=X+F:IF X>319 T 
HEN X=319 DC 

•45 IF M$="[LEFT]" THEN X=X-F:IF X<0 THEN 



X=0 
•50 GOSUB 1000: GOTO 20 
•100 DX=X-XI : DY=Y-YI 
•110 M=DY/DX : B=YI-M*XI 
•115 SP = (SGN(XI-X))*F : XF=X 
•120 FOR X=XF TO XI STEP SP 
•130 Y = INT(M*X+B) 
•140 GOSUB 1000 
•150 NEXT 
•160 D=0:G0T0 20 

•200 D=1:F0R Y = TO 199 STEP 21 
•210 FOR X = TO 249 STEP 25 
•220 GOSUB 1000 
•230 NEXTX : NEXTY 
•240 X = 128 : Y = 95 : GOSUB 1000 
•250 D=:0 : RETURN 

• K/jO CH=INT( X/8 ) : RO=INT( Y/8) t LN=YAND7 
•1010 IF D=0 THEN POKE BY.SV 
•1015 IF E=0 THEN 1020 
•1017 Z = SV AND (2[UPARR0W]BT):P0KE BY.S 

v-z EE 

•1020 BY=8192+RO*320+CH*8+LN:BT=7-(XAND7) KH 
•1030 SV = PEEK(BY) bC 



KG 
HH 
EM 
AM 
FA 
LD 
FG 
FO 
lA 
EG 
HN 
DH 
FO 
PL 
BP 
PA 
FK 
FO 
CO 
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To enter The Wizard of Im... rmrodTcSonfo 

•1040 POKE BY.SV 0R(2[UPARR0W]BT) LK 
•1050 RETURN IM 

•1100 OPEN A,4,5:CMD4 KJ 

•1110 PRINT CHR$(27)CHR$(5l)CHR$(16) EC 
•1120 POKE 251,0:POKE 252,32 KG 

•1130 FOR 1=0 TO 7:P0KE 2048+1, 2 [UPARROW] 

I: NEXT FP 

•1140 FOR L=0 TO 24: PRINT CHR$(27)CHR$(76 

)CHR$(250)CHR$(2); lA 

•1150 SYS S2 CE 

•1160 PRINT CHR$(2A5)CHR$(I0); PC 

•1170 NEXT L MO 

•1180 PRINT#4,CHR$(27)"@":PRINT#4,:CL0SE4 GL 
•1190 END IC 

Machine code to be appended to ETCH 
(see article for Instructions) 

169 24 141 24 208 169 32 13 17 208 141 17 
208 169 32 133 252 160 132 251 169 145 
251 2f/j 208 251 166 252 232 134 252 224 64 
208 242 169 4 133 252 132 251 169 1 145 
251 200 208 251 166 252 232 134 252 224 8 
208 242 96 162 169 32 210 255 232 224 
120 208 246 169 245 32 210 255 169 141 8 
8 141 9 8 141 10 8 141 11 8 169 7 56 237 9 
8 170 189 8 141 12 8 169 7 56 237 10 8 

170 189 8 141 13 8 172 10 8 177 251 45 
12 8 240 10 173 13 8 24 109 11 8 141 11 8 
174 10 8 232 142 10 8 224 8 208 212 173 11 
8 32 210 255 32 210 255 169 141 10 8 141 
H 8 174 9 8 232 142 9 8 224 8 208 171 169 
141 9 8 169 8 24 101 251 133 251 144 5 
166 252 232 134 252 174 8 8 232 142 8 8 
224 40 208 141 96 

THE WIZARD OF IM 

FROM PAGE 47 
First Byte: COOO 
COOO: A9 OF 



our Ftankspeed machine langu 
Flankspeed on page 86 of this 



COOS : 
COlO: 
C018: 
C020: 
C028: 
C030: 
C038: 
C04 0: 
C048: 
C050: 
C058: 
C060: 
0068: 
C070: 
C078: 
008 0: 



20 
8D 
AO 
AO 
00 
16 
FC 
00 
C6 
88 
FE 
C6 
9D 
CA 
20 
FO 



27 
23 
17 
26 

85 
AD 
69 
85 
AD 
88 
4C 
4C 
6F 
DO 
FO 
07 



Last Byte: 

8D 18 

C3 A9 

C7 20 

99 00 

A 9 OA 

FC A9 

FE C6 

28 85 

FD CA 

FE C6 

DO D3 

64 CO 

50 CO 

DB A9 

F3 18 

FF AO 

20 D2 



C71F Sys to 

D4 20 DF 

00 8D 22 

44 E5 A9 

04 88 DO 

8D FE C6 

D8 85 FD 

91 FC 18 

FC A5 FD 

DO EB CE 

C9 01 FO 

8C 00 D8 

A9 OA 8D 

A2 78 A9 

AO 9D 6F 

A2 16 AO 

00 B9 66 

FF C8 4C 



Start: 49152 

C2 F5 

07 34 

00 70 

FA 92 

A9 97 

A2 53 

A 5 06 

69 56 

FE 19 

OC 4 A 

84 EF 

FE 09 

OB 54 

07 AF 

OE 7F 

C6 11 

7D FD 



0088: 

0090: 

C098: 

COAO: 

C0A8: 

COBO: 

COBS: 

COCO : 

0008: 

OODO: 

CODS: 

COEO: 

C0E8: 

COFO: 

C0F8: 

0100: 

0108: 

0110: 

0118: 

0120: 

0128: 

0130: 

C138: 

CI 40: 

0148: 

0150: 

0158: 

C160: 

C168: 

CI 70: 

0178: 

0180: 

0188: 

0190: 

C198: 

ClAO: 

C1A8: 

01 BO: 

01B8: 

0100: 

C1C8: 

CIDO: 

C1D8: 

ClEO: 

CiE8: 

C 1 FO : 

C1F8: 

0200: 

0208: 

C210: 

0218: 

C220: 

0228: 

C2 30: 

0238: 

C240: 



CO 

8D 

8D 

DO 

01 

07 

05 

07 

C7 

8D 

FF 

6F 

AD 

29 

54 

06 

27 

27 

04 

D6 

OE 

00 

44 

40 

FO 

40 

8D 

AD 

D6 

10 

29 

D6 

00 

07 

AD 

40 

DO 

AD 

03 

F8 

6D 

01 

DO 

A9 

03 

10 

40 

29 

03 

06 

07 

85 

85 

FF 

DO 

20 



A9 

F8 

21 

8D 

8D 

8D 

8D 

A9 

A9 

28 

09 

AD 

IF 

07 

AD 

29 

07 

07 

FO 

CO 

8D 

8D 

E5 

82 

AA 

13 

F8 

00 

CO 

DO 

01 

00 

DO 

09 

10 

D6 

03 

15 

8D 

8D 

10 

A9 

AD 

01 

DO 

DO 

F4 

OF 

6D 

FO 

A5 

FE 

FF 

C6 

OF 

FB 



A6 

07 

C7 

26 

25 

IE 

10 

06 

02 

C7 

SO 

8D 

DO 

FO 

00 

10 

DO 

AD 

67 

A9 

20 

15 

20 

01 

40 

CO 

07 

DO 

AD 

40 

FO 

A9 

AD 

18 

DO 

CO 

EE 

DO 

15 

02 

DO 

12 

03 

8D 

AD 

40 

CO 

8D 

FE 

22 

FE 

A5 

AO 

40 

AD 

CI 



age entry 
ssue. 

8D 00 
A 9 00 
8D FF 
07 AD 
07 A9 
07 8D 
07 A9 
8D 2D 
8D 2E 
20 B2 
FO 45 

02 09 
29 01 
4F CE 
DO 49 
C9 10 
CA AD 
FD 06 
C9 08 
06 8D 
DO 8D 
DO 8D 
74 A4 
AD 15 
Dl 01 
4C 09 
EE 00 

09 45 

10 DO 
D6 00 

03 OE 
FE 8D 
00 DO 
FO OE 
29 02 
AD 10 
00 DO 
C9 03 
DO AD 
DO AD 
8D 10 
8D 29 
DO 09 
15 DO 
10 DO 
D6 00 
20 97 
FE 06 
C6 OA 
AD 2B 
85 FC 
FF 85 
26 20 
F9 CO 
2D 07 
A8 A9 



program. See the 



!| 



DO A 9 
8D 20 
06 8D 
IF DO 

03 8D 
ID C7 
30 8D 
C7 8D 
C7 A9 

04 20 
09 88 
01 FO 
DO 64 
2A C7 
FF 8D 
FO 36 

28 07 

29 OF 
FO 37 
21 DO 
86 02 
18 D4 
40 BO 
DO 29 
4C OE 
04 A9 
DO FO 
FO OE 
09 01 
AD 10 
00 DO 
F8 07 

09 FF 
40 D6 
8D 10 
DO 29 
40 D6 
FO 17 
00 DO 

10 DO 
DO 40 
07 CE 

28 BO 
A9 BE 

29 01 
20 90 
EO A 5 
A5 8D 
60 AE 
07 8D 
38 E9 
FD E9 
8F 03 
CE 2C 
8D 2C 
51 99 



FD 9F 
07 3D 
10 01 
A9 34 
24 82 
A 9 08 
2B CI 
20 74 
20 89 
E4 EA 
FO A 8 
EE 38 
OE B4 
FO D3 
FD AC 
CE OF 
8D BD 
C9 73 
4C BA 
A9 90 
A9 74 
20 3E 

01 5A 

02 8F 
C2 EO 
FD F2 
OA AO 
40 39 
8D 26 
DO 03 
40 82 
OE ID 
FO 92 
CO 50 
DO 00 
01 3D 
CO 20 
A9 02 
29 D6 
OA B2 
07 D8 

03 9E 
15 E2 
8D F4 
8D 03 
03 36 
8E C7 
29 E7 
FF 57 
2A 42 
28 51 
00 B7 
CE B6 
07 CO 
07 30 
00 5B 
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C248: 


; 04 A9 48 85 FE A9 07 85 F8 


C250: 


; FF AO 26 Bl FE C9 20 FO A2 


C258: 


IE A9 20 91 FE AD 21 C7 67 


C260: 


FO 15 38 AD 20 C7 ED 26 48 


C268: 


C7 8D 20 C7 AD 21 C7 E9 26 


C270: 


00 8D 21 C7 4C 7B C2 88 F9 


C278: 


88 DO D8 A2 15 8E FF C6 B7 


C280: 


4C F9 CO 38 AD 03 DO E9 2B 


C288: 


32 4A 4A 4A 8D 30 C7 OA 29 


C290: 


OA 6D 30 C7 A2 00 8E 30 61 


C298: 


C7 OA OA 2E 30 C7 OA 2E D2 


C2A0: 


30 C7 85 59 AD 30 C7 69 86 


C2A8: 


04 85 5A AD 10 DO 4A 8D F2 


C2B0: 


32 C7 38 AD 02 DO E9 14 61 


C2B8: 


8D 31 C7 AD 32 C7 E9 00 DO 


C2C0: 


4A 6E 31 C7 AD 31 C7 4A 63 


C2C8: 


4A 65 59 85 59 A5 5A 69 lA 


C2D0: 


00 85 5A 60 A9 FF 8D 00 48 


C2D8: 


C7 CE 00 C7 DO FB 60 AO 05 


C2E0: 


FF C8 B9 66 C5 99 00 3F 68 


C2E8: 


CO FF DO F5 A9 A6 8D 00 4E 


C2F0: 


DO A9 CD 8D 01 DO A9 03 45 


C2F8: 


8D IC DO A9 06 8D 27 DO AS 


C300: 


A9 08 8D 25 DO A9 01 8D 6D 


C308: 


15 DO 8D 26 DO A9 FD 8D A7 


C310: 


F8 07 A9 FF 8D F9 07 A9 Fl 


C318: 


64 8D 02 DO A9 CO 8D 03 D7 


C320: 


DO A9 07 8D 28 DO 60 20 A8 


C328: 


44 E5 A9 17 8D 18 DO A9 33 


C330: 


00 8D 20 DO 8D 21 DO A2 DO 


C338: 


06 AO OB 18 20 FO FF AO B3 


C340: 


00 B9 C9 C6 FO 07 20 D2 75 


C348: 


FF C8 4C 41 03 A2 08 AO AD 


C350: 


OC 18 20 FO FF AO 00 B9 DF 


C358: 


DB C6 FO 07 20 D2 FF C8 AE 


C360: 


4C 57 C3 A2 OA AO OA 18 37 


C368: 


20 FO FF AO 00 B9 EA 06 85 


C370: 


FO 07 20 D2 FF 08 4C 6D DD 


C378: 


C3 A2 05 AO FF 20 D4 02 30 


C380: 


88 DO FA CA DO F5 20 44 CA 


C388: 


E5 A9 15 8D 18 DO 60 Bl B5 


C390: 


FE 91 FC A9 20 91 FE 88 01 


C398: 


88 DO F4 60 20 83 02 A2 50 


C3A0: 


00 Al 59 C9 20 FO 07 A9 27 


C3A8: 


20 81 59 4C BA 03 AO 01 10 


C3B0: 


Bl 59 09 20 FO 30 A9 20 90 


C3B8: 


91 59 A9 FC 8D F9 07 A9 82 


C3C0: 


20 81 59 20 F3 03 A9 05 42 


C3C8: 


8D 2F C7 20 D4 02 OE 2F 03 


C3D0: 


07 DO F8 A9 80 8D 04 D4 F2 


C3D8: 


A9 01 8D 15 DO AD 10 DO 85 


C3E0: 


29 01 8D 10 DO A9 FF 8D BO 


C3E8: 


F9 07 A9 CO 8D 03 DO 20 D5 


C3F0: 


OD C4 60 A9 30 8D 00 D4 6B 


C3F8: 


A9 08 8D 01 D4 A9 81 8D 87 


C400: 


04 D4 A9 8E 8D 05 D4 A9 22 


C408: 


D5 8D 06 D4 60 18 AD 20 80 


C410: 


07 6D 10 07 8D 20 07 AD 40 



0418; 


; 21 07 69 00 8D 21 C7 20 01 


0420: 


; 6F 04 20 26 04 60 AD 21 8E 


0428: 


; 07 CD ID C7 DO 40 AO 25 85 


0430: 


: 07 B9 03 07 8D IC 07 18 06 


0438: 


AD ID 07 6D IE 07 8D ID C8 


0440: 


07 EE IE 07 EE 26 07 EE A8 


C448: 


25 07 20 90 04 OE 2B 07 78 


0450: 


OE 2B 07 BO 05 A9 01 8D FF 


0458: 


2B 07 CE 2E 07 DO OF CE BE 


0460: 


2D 07 DO 05 A9 01 8D 2D 90 


0468: 


C7 A9 04 8D 2E 07 60 A2 64 


04 70: 


18 AO 04 18 20 FO FF A9 FF 


0478: 


OE 8D 86 02 AD 21 07 AE El 


0480: 


20 07 20 CD BD 60 A2 18 2F 


0488: 


AO OF 18 20 FO FF A9 07 12 


0490: 


8D 86 02 AD 24 07 69 30 D9 


0498: 


20 D2 FF 60 A2 18 AO 18 5F 


C4A0: 


18 20 FO FF A9 05 8D 86 80 


C4A8: 


02 A9 00 AE 25 07 20 CD DD 


04 BO: 


BD 60 A2 18 AO IF 18 20 81 


04B8: 


FO FF A9 08 8D 86 02 AD IF 


0400: 


23 07 AE 22 07 20 OD BD EF 


04C8: 


60 20 OE 05 AD F8 07 8D 58 


04D0: 


IF C7 A9 01 8D 15 DO 20 F5 


04D8: 


40 05 A9 32 8D 2F C7 A9 F4 


C4E0: 


FC 8D F8 07 20 D4 C2 20 43 


04E8: 


D4 02 AD IF C7 8D F8 07 A2 


04 FO: 


20 D4 02 CE 2F 07 DO E7 27 


04F8: 


A9 80 8D 04 D4 OE 24 07 44 


0500: 


20 86 04 AD IF DO AE 24 DB 


0508: 


07 FO OE 40 D6 CO A9 20 7C 


0510: 


AO 78 99 F7 06 88 DO FA 15 


C518: 


60 20 6F 04 AD 21 07 CD 31 


0520: 


23 C7 90 19 DO 08 AD 20 5B 


0528: 


07 CD 22 07 90 OF AD 20 15 


0530: 


07 8D 22 07 AD 21 07 8D 93 


C538: 


23 07 20 B2 04 20 E4 FF BF 


0540: 


FO FB 09 80 FO 03 40 13 D6 


0548: 


CO 40 22 01 A9 5F 8D 00 CF 


0550: 


D4 A9 07 8D 01 D4 A9 81 64 


0558: 


8D 04 D4 A9 3F 8D 05 D4 OF 


0560: 


A9 08 8D 06 D4 60 00 30 OB 


0568: 


00 00 00 00 00 10 00 00 45 


0570: 


00 00 C2 22 00 00 10 00 71 


0578: 


04 20 40 82 AA 08 00 B8 CA 


0580: 


00 2 A FE A3 00 B8 00 82 88 


0588: 


AA 08 04 20 40 00 10 00 AF 


0590: 


C2 22 00 00 00 00 OC 20 AD 


0598: 


CO 00 00 00 00 10 00 00 69 


C5A0: 


00 00 00 30 00 00 AO 00 7D 


05A8: 


00 2A OF 00 2A 83 CO OA 5A 


C5B0: 


90 DO OA 94 54 02 DO 14 EB 


05B8: 


02 FC 04 02 80 04 OA AA F6 


0500: 


94 2A AA 94 2A AA 80 2A 3E 


05C8: 


A 2 80 2 A AO 80 16 AO 80 6E 


C5D0: 


lA AO 00 OA AO 00 OA AO EO 


05D8: 


00 OA AO 00 OA AO 00 OA 38 


05 EO: 


AO 00 2 A A8 00 10 00 30 94 
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in/IDnDTAMTI Letters on while background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
llVlrUn IHN I ! and provide other essential information on entering /Ihoy/ programs. Refeno these pages before entering any programs! 

•15 PRINT" [CLEAR] [BLACK] [DOWN] [5" "]INSTR 
UCTIONS[ BLUE] [DOWN] [DOWN]": PRINT" 1. LOA 
D 1ST PROGRAM": PRINT" [DOWN] 2. SYS" A CA 

•20 PRINT" [DOWN] 3. LOAD 2ND PROGRAM" :PRI 
NT"[DOWN] 4. SYS"A+19: PRINT" [DOWN] 5. SA 
VE AND VERIFY 

•25 DATA165, 43, 133, 251, 165, 44, 133, 252, 166 
,45,202,202,134,43,165,46,133,44,96 

•30 DATA165, 251, 133, 43, 165, 252, 133, 44, 96 






C5E8 

C5F0 

C5F8 

C600 

C608 

C610 

C618 

C620 

C628 

C630 

C638 

C640 

C648 

C650 

C658 

C660 

C668 

0670 

C678 

C680 

C688 

C690 

C698 

C6A0 

C6A8 

06 BO 

C6B8 

C6C0 

C6C8 

C6D0 

C6D8 

C6E0 

C6E8 

C6F0 

C6F8 

€700 

C708 

07 10 

C718 



2A 

05 

10 

AO 

8A 

00 

AO 

OA 

00 

7E 

01 

00 

18 

00 

00 

00 

57 

46 

20 

20 

53 

45 

47 

ID 

20 

20 

20 

20 

00 

DA 

09 

4F 

4F 

47 

31 

00 

30 

CI 

64 



00 

AO 

3F 

16 

A8 

OA 

00 

AO 

00 

40 

6E 

00 

00 

38 

00 

00 

49 

20 

20 

20 

20 

40 

48 

ID 

20 

20 

20 

20 

9E 

CI 

CD 

42 

00 

48 

39 

00 

40 

2D 

78 



FO 

15 

80 

AA 

02 

A4 

OA 

00 

55 

01 

40 

AE 

00 

00 

IC 

00 

5A 

49 

9F 

20 

20 

20 

20 

30 

20 

98 

31 

81 

D4 

D2 

00 

20 

C3 

54 

38 

00 

79 

48 

C8 



A8 

17 

10 

A8 

OA 

00 

AO 

2A 

00 

BE 

01 

00 

2C 

00 

00 

OC 

41 

4D 

53 

20 

20 

20 

OD 

20 

20 

20 

20 

20 

C8 

04 

42 

D3 

4F 

20 

35 

00 

CI 

73 

32 



03 
AO 

OA 

02 

A8 

OA 

00 

A8 

01 

40 

BE 

00 

00 

IC 

00 

00 

52 

OD 

43 

4C 

20 

20 

9A 

20 

9E 

20 

20 

20 

C5 

20 

59 

50 

50 

28 

00 

08 

IE 

B8 

00 



CI 

14 

80 

AA 

02 

AO 

OA 

10 

69 

01 

00 

24 

00 

00 

30 

00 

44 

12 

4F 

49 

4C 

20 

12 

20 

20 

20 

98 

20 

20 

CF 

20 

49 

59 

C3 

00 

OC 

30 

50 

00 



A8 

07 

16 

A8 

OA 

00 

AO 

00 

40 

BD 

00 

00 

24 

00 

00 

12 

20 

20 

52 

56 

45 

48 

ID 

20 

20 

20 

20 

20 

D7 

C6 

20 

52 

52 

29 

00 

13 

4C 

69 

00 



OF 

80 

AA 

02 

94 

OA 

00 

14 

01 

40 

99 

00 

00 

18 

00 

97 

4F 

20 

45 

45 

56 

49 

ID 

98 

33 

IE 

20 

20 

C9 

20 

C2 

4B 

49 

20 

00 

IE 

79 

99 

00 



29 

FE 

24 

61 

90 

73 

OE 

CI 

29 

ED 

41 

13 

BO 

BC 

A4 

16 

AA 

CC 

D5 

32 

44 

34 

3C 

24 

3B 

28 

43 

23 

8C 

DB 

OF 

9D 

90 

2A 

DO 

45 

D3 

C6 

EF 



AJ 

CM 
KI 



VrC 20 BUG REPELLENT LINE CODES 



Auto-Append 

FROM PAGE 62 ■ ■ 

8ug Repellent line codes listed to right of program 

only! VIC 20 Bug Repellent line codes are listed at end of program. 



lines are for C-64 



■1 

-2 

•3 
■4 
•5 
•6 
'7 
•8 
•10 



J^J^slijJc**************** 



LO 

* 00 

* PN 

* 00 

* lA 

* GJ 

* MK 

P0KE55,225:P0KE56,PEEK(56)-1:A=PEEK(5 



REM* 

REM* 
REM* 
REM* 
REM* 
REM* 



AUTO-APPEND 

BY 

WILLIAM BRAUN 
1984 



#1 
#2 
#3 



LO 
00 
CC 



#4 
#5 
#6 



:00 
:J0 
:HI 



#7 
#8 
#10 



m 

LO 
PG 



#15 
#20 
#25 



:LE 
:BI 
:CM 



#30 :KI 

IZZI 



6)*256+226:F0RX=0T027:READD:P0KEA+X,D:NE 
XT 



AUTOS: LEASING V. BUYING 

FROM PAGE 75 
10 PRINTCHR$(147),CHR$(144):P0KE53281,14NA 
20 PRINTTAB(9)"AUT0: LEASING VS BUYING" OA 
25 PRINTTAB(9):F0R J=1T023: PRINT CHR$(18 
3);:NEXT:PRINT:PRINT MM 

30 PRINTTAB(13)"C0ST OF BUYING" -.PRINT: PR 
INT NH 

35 PRINTTAB( 3) "PLEASE ENTER DATA AS REQU 
ESTED": PRINT: PRINT JP 

40 INPUT" ENTER THE PURCHASE PRICE $ ";P 
P: PRINT ND 

50 INPUT" WILL YOU NEED FINANCIMG? Y/N"; 
F$: PRINT: IF F$="N" THEN 190 ON 

60 PRINT" DOWNPAYMENT INCLUDING TRADE-IN 

OL 

HK 

HG 

DE 

JC 
LG 
EC 

IE 
MN 

BG 
CO 
BD 
LD 
NK 

GP 
BB 
CA 



PG 



70 INPUT " ALLOWANCE $ ";DP:PRIiNT :LA=P 

P-DP 

80 PRINT" [3" "]YOU WILL NEED TO BORROW $ 

"; LA: PRINT 

90 PRINT" WILL YOU NEED TO BORROW MORE T 

0" 

95 PRINT" COVER SALES TAX, LICENSE, ETC 

.?" 

100 INPUT" [4" 

105 IF H$="N" 

110 PRINT" [3" 

BORROWED" 

120 INPUT "$ ";AB: LA=LA+AB : PRINT 

140 PRINT" ANNUAL PERCENTAGE INTEREST RA 

TE?" 

150 INPUT "[5" "]% ";R : PRINT 

160 IF R>1 THEN R=R/100 

170 PRIiNT" LENGTH OF LOAN IN MONTHS." 

180 INPUT "[5" "]MONTHS";M: PRINT 

185 IF M>60 THEN PRINT"SORRY,60 MONTH LI 

MIT, PLEASE RE-ENTER": PRINT: GOTO 170 



"]Y/N";H$: PRINT 

THEN LA=PP-DP: GOTO 140 

"] ENTER ADDITIONAL AMOUNT 



190 INPUT" SALES TAX RATE % ";SX: PRINT 

200 IF SX>1 THEN SX=SX/100 

210 INPUT" ANNUAL LICENSE FEE $ ";LC:PRI 



100 AHOY! 



^T MD 

•220 PRINT" WHAT TYPE OF CAR ARE YOU BUYI 

NG?": PRINT PO 

•230 PRINT" [3" ••]!. STANDARD" FF 

•240 PRINT" [3" "]2. COMPACT" MN 

•250 PRINT"[3" "]3. SUBCOMPACT?": PRINT PJ 
•260 INPUT"PLEASE ENTER NUMBER" ;N: PRINT KO 
•270 PRINT" DO YOU ITEMIZE YOUR DEDUCTION 

S FOR" PO 

•280 INPUT" INCOME TAX PURPOSES? Y/N":Y$ 

: PRINT \fi 

•290 IF Y$="N" THEN 320 Ij 

•300 PRINT" ENTER YOUR TAX BRACKET RATE" HF 
•310 INPUT"%";TX: PRINT KM 

•320 IF TX>1 THEN TX=TX/100 AN 

•370 PRINTCHR$(147) FG 

•380 PRINTTAB(12)"C0ST OF LEASING" DB 
•390 PRINrrAB(12):FORK=lT015:PRINTCHR$(18 
3);: NEXT: PRINT: PRINT NO 

•400 PRINTTAB( 3) "PLEASE ENTER DATA AS REQ 
UESTED" : PRINT : PRINT jp 

•410 PRINT" ENTER SECURITY DEPOSIT REQUIR 

ED pp 

•415 INPUT"[5" "]$";SD:PRINT BN 

•420 PRINT" ENTER MONTHLY LEASE PAYMENT" HD 
•425 INPUT"[5" "]$";ML:PRINT ED 

•430 PRINT" FOR HOW MANY MONTHS?" DG 
•435 INPUT"[5" "]MONTHS";NP:PRINT:IF F$=" 

N" THEN M=NP CH 

•440 PRINT" DOWNPAYMENT OR ADDITIONAL PAY 

MENT" ON 

•450 INPUT" [5" "]$";AP: PRINT BL 

•460 INPUT" ANNUAL LICENSE FEE $";LF:PRIN 



JH 
FO 
FB 
CH 
GP 
PO 
GP 
IN 



•470 GOSUB 1000 
•480 GOSUB 1300 
•510 GOSUB 1500: PRINT: PRINT 
•520 INPUr'PRESS 'C TO CONTINUE" ;C$ 
•530 GOSUB 1800: PRINT: PRINT 
•540 INPUr'PRESS 'C TO CONTINUE" ;C$ 
•550 PRINTCHR$( 147): POKE 53280,2 
■560 PRINTTAB( 5) "COMPARISON: LEASING VS. 
BUYING" 

•570 PRINTTAB(5):F0RK=1T030:PRINTCHR$(183 
);:NEXT: PRINT: PRINT ND 

•590 MP=INT(MP*100+.5)/100:X$=STR$(MP):GO 
SUB 3000 QQ 

•600 PRINT" YOUR MONTHLY LOAN PAYMENTS WOU 
LD BE:": PRINT HK 

•610 PRINTTAB( 10) "$";X$: PRINT LC 

•620 PRINT" YOUR MONTHLY LEASE PAYMENT WOU 



DL 



LD BE:"; PRINT 
• 630 PRINTIABC 10) "$" ; ML : PRINT : PRINT 
•640 X$=STR$(TT): GOSUB 3000 
•650 PRINT"THE NET COST OF BUYING IS $"• 

SPC(SP)X$:PRINT * 

•660 X$=STR$(LT): GOSUB 3000 
•670 PRINT"THE NET COST OF LEASING IS $"; 



AD 
ID 

IJ 

AF 
IB 



SPC(SP)X$ NN 

•675 PRINTTAB(28);:F0R K=1T09:PRINTCHR$(1 

83); :NEXT:PRINT: PRINT AD 

•680 DF=LT-TT:X$=STR$( DP): GOSUB 3000 FD 
•690 IF DF>0 THEN PRINT" [5" "] BUYING IS C 

HEAPER BY $";SPC(SP)X$ OB 

•700 IF DF<0 THEN PRINT" [5" "] LEASING IS 

CHEAPER BY $";SPC(SP)VAL(X$)*~1 PQ 
•900 END ic 

•1000 REM COST OF BUYING CALCULATIONS JN 
•1010 YR=M/12:MR=R/12:T=INT(YR) :TT=0:TD= 

'■j GG 

•1015 XL=(PP*(I+.055)[UPARR0W]YR)-PP BF 
•1020 r.I=(DP*(l+.055)[UPARR0W]YR)-DP HA 
•1025 IF LA=0 THEN 1070 HP 

•1030 F=(MR*(1+MR)[UPARR0W]M)/((1+MR)[UPA 
RROWjM-1) 

•1040 MP=F*LA 

•1050 IX=(MP*M)-LA 

•1060 IS=IX*TX 

•1070 SS=(SX*PP)*TX 

•1075 IF T>5 THEN PRINT"SORRY, 60 MONTH I 
IMIT":END 

•1080 IF N=l THEN GOSUB 2000 

•1090 IF N=2 THEN GOSUB 2100 

•1100 IF N=3 THEN GOSUB 2200 

•1110 LC=LC*YR 

•1120 RETURN 

•1300 REM COMPUTE COST OF LEASING 

•1310 TL«ML*NP 

•1320 T1=INT(NP/12) 

•1330 IL=(SD*(1+.055)[UPARR0W]T1)-SD 

•1340 IA=(AP*(1+.055)[UPARROW]T1)-AP 

•1350 LF=LF*T1 

•1360 RETURN 

•1500 REM DISPLAY BUYING RESULTS 

•1505 PRINTCHR$(147) 

•1510 PRINTTAB(13)"C0ST OF BUYING" 

•1515 PRINTTAB(13);:F0R K=1T014:PRINTCHR$ 

(183);: NEXT: PRINT: PRINT HM 

•1520 IF F$="N" THEN 2500 LE 

•1525 DP=INT(DP):X$=STR$(DP):GOSUB 3000:T 

T=TT+DP Lo 

• 1530 PRINT"DOWNPAYMENTt 18" ."]$"; SPC( SP)X 

$ IF 

•1540 LI=INT(LI):X$=STR$(LI):GOSUB 3000:T 

T=TT+LI HO 

•1550 PRINT"INTEREST LOST ON DOWNPAYMENT. 

.";SPC(SP)X$ ED 

•1560 TP=(M*MP)~AB:TP=INT(TP) :X$=STR$(TP) 

: GOSUB 3000 :TT=TT+TP aI 

•1570 PRINT"T0TAL PAYMENTS ON LOAN [8"."!" 

;SPCCSP)X$ HK 

•1575 PRINT" [SS][SS]( AUTO PORTION ONLY) EH 
■1580 SA=SX*PP:SA=INT(SA)tX$=STR$(SA):GOS 

UB 3000: TT=TT+SA ph 

•1590 PRINT"SALES TAX ON PURCHASE[9"."1"' 

SPC(SP)X$ MP 



NB 
NH 
JF 
EI 
AC 

KJ 

MI 
LK 
LM 
DC 
IM 
LP 
DA 
AC 
BM 
DH 
PK 
IM 
JF 
FG 
BD 



AHOYf 101 



IMPriRTANTI '-®"®''^ °" ^'^''^ background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain ihese codes 
IIVIl Ull I Mil I I and provide olher essential information on entering >5hoy.' programs. Refer to these pages before entering any programs! 



1593 LC=INT(LC):X$=STR$(LC):GOSUB 3000:T 
T=TT+LC CE 

1595 PRINT"LICENSE FEKS FOR ";INT(YR);"Y 
EARS[5"."]";SPC(SP)X$ PD 

1600 PRINrrAB(29);:F0R K=1T010:PRINT CHR 
$(183);: NEXT NC 

1610 X$=STR$(TT):GOSUB 3000 LD 

1620 PRINT: PRI^fTTAB(5)"T0TAL";SPC( 19)"$" 
;SPC(SP);X$ GN 

1630 PRINT: PRINT"LESS:":PRINT OL 

1640 Z=PP*( 1-TD) :Z=INT(Z) :X$=STR$(Z) :GOS 
UB 3000:TT=TT-2 GO 

1650 PRINT"ESTIMATED RESIDUAL VALUE" HH 
1660 PRINT"[5" "]0F THE CAR[14"."]$";SPC 
(SP)X$ KM 

1665 IF Y$="N" THEN 1720 BF 

1670 IS=INT(IS):X$=STR$(IS):GOSUB 3000 :T 
T=TT-IS AB 

1680 PRINT"TAX SAVINGS ON INTEREST[7"."] 
";SPC(SP)X$ OF 

1700 SS=INT(SS):X$=STR$(SS):GOSUB 3000 :T 
T=TT-SS ON 

1710 PRINT"TAX SAVINGS ON SALES TAX [6"." 
]";SPC(SP)X$ HF 

1720 PRINTTABC29):FORK=1T010:PRINTCHR$(1 
83); :NEXT: PRINT EN 

1730 X$=STR$(TT):GOSUB 3000 LD 

1740 PRINTTAB(5)"NET COST OF BUYING";SPC 
(6)"$";SPC(SP)X$ OJ 

1750 RETURN IM 

1800 REM DISPLAY LEASING RESULTS JP 
1810 PRINTCHR$(147) FG 

1820 PRINTrAB(12)"C0ST OF LEASING" LO 
1830 PRINTTAB(12):F0RK=1T015:PRINTCHR$(1 
83);: NEXT: PRINT: PRINT NO 

1840 SD=INT(SD):X$=STR$(SD):GOSUB 3000 ;L 
T=LT+SD BI 

1850 PRINT"SECURITY DEP0SIT[13"."]$"SPC( 
SP)X$ IB 



1906 LF=INT(LF):X$=STR$(LF):GOSUB 3000:L 
T=LT+LF DE 

1907 PRINT"LICENSE FEE FOR ";T1 ;"YEARS[6 
"."]";SPC(SP)X$ EM 

1909 PRINTrAB(29):FORK=lT010:PRINTCHR$(l 
83);:NEXT:PRIi\T EN 

1910 LT=INT(LT):X$=STR$(LT):GOSUB 3000 BB 
1920 PRINT TAB(5)"TOTAL";SPC(19)"$";SPC( 
SP)X$ IH 
1930 PRINT:PRINT"LESS:":PRINT OL 
1940 X$=STR$(SD):GOSUB 3000 : LT=LT-SD GK 
1950 PRINT"RETURN OF SECURITY DEP0SIT[3" 
."]$";SPC(SP)X$ NN 
1955 PRINrrAB(29):F0RK=lT010:?RINTCHR$(l 
83);: NEXT: PRINT EN 
1960 LT=INT(LT):X$=STR$(LT):GOSUB 3000 BB 
1970 PRINTTAB(5)"NET COST OF LEASING" ;SP 
C(5)"$";SPC(SP)X$ NF 
1990 RETURN IM 
2000 A(1)=.279:A(2)=.146:A(3)=.111:A(4)= 
.099:A(5)=.084 OD 
2010 FOR K=1T0T:TD=TD+A(K):NEXT: RETURN DF 
2100 B(1)=.167:B(2)=.126:B(3)=.106:B(4)= 
.099: 8(5)=. 095 MA 
2110 FOR K=lTOT:TD=TrM-B(K):NEXT: RETURN EI 
2200 C(1)=.123:C(2)=.115: C(3)=.114:C(4) 
=.107:C(5)=.106 GM 
2220 FOR K=1T0T:TD=TD+C(K): NEXT: RETURN NL 
2500 REM DISPLAY CASH PURCHASE RESULTS IE 
2510 PP=INT(PP):X$=STR$(PP):GOSUB 3000:T 
T=TT+PP AI 
2520 PRINT"PURCHASE PRICE[15"."]$";SPC(S 
P)X$ MH 
2530 XL=INT(XL):X$=STR$(XL):GOSUB 3000 :T 
T=TT+XL PA 
2540 PRINT"INTEREST LOST ON PUR. PRICE [3 

","]";SPC(sp)x$ AC 

2550 GOTO 1580 HG 

3000 SP=9-LEN(X$): RETURN KA 




^-%^ 



nai/ud^ 



I860 TL=INT(TL):X$=STR$(TL):GOSUB 3000:L 

T=LT+TL EI & 

1870 PRINT"TOTAL OF LEASE PAYMENTS [7"."] 

";SPC(SP)X$ DG FROM'PAGE 17 

1880 IL=INT(IL):X$=STR$(IL):GOSUB 3000:L -10 P0KE53280,1:P0KE53281 , 1 :PRINT"[CLEAR] 

T=LT+IL GM [c 4]":DIMT1(20),T2(30) AK 

1890 PRINT"INTEREST LOST ON SECURITY DEP -20 DIMW$(74) ,G$(14) ,G(14) ,W(14,7,9),T(14 
.";SPC(SP)X$ ON ,9),T$(14,9),P$(14),P(74) MN 

1891 IF AP=0 THEN1906 MK -25 D$=".":N$=CHR$(13) :C0$=", " NM 
1895 AP=INT(AP):X$=STR$(AP):GOSUB 3000 :L -30 F0RI=0T022:K$=K$+"[D0WN]":NEXT:K$="[H 
T=LT+AP CE 0ME]"+K$+"[RED][12"[RIGHTJ"]PRESS ANY KE 
1898 PRINT"ADDITIONAL REQUIRED PAYMENT[3 Y" KL 
"."j";SPC(SP)X$ MK -87 S=2:C=12:0=(49152+2*1024)/256:PC=6143 
1900 IA=INT(IA):X$=STR$(IA):GOSUB 3000:L 9 KD 
T=LT+IA ME .88 F0RI=1T033:READA:P0KE49151+I, A:NEXT:G 
1903 PRINT"LOST INTEREST ON ADD'L PAYMEN OSUB95 FE 
T";SPC(SP)X$ EG -89 POKE56576,PEEK(56576)AND252:POKE53272 



102 AHOY! 



,S*16+C:P0KE648,0 
• 90 FORI=53236T053245 : READA : POKEI , A : NEXT 
•91 POKE53246,PEEK(792):POKE53247,PEEK(79 

3):P0KE792,244:POKE793,207:GOT0100 

•95 POKE56334,PEEK(56334)AND254:P0KEl,PEE 
K(1)AND251:SYS49152 

•96 POKEI, PEEK(l)OR4:POKE56334,PEEK(56334 
)0R1: RETURN 

•97 DATA169/J,133,251,133,253,X69.208,133 

,252,169,240,133,254,162,16 
•98 DATA160, 0,177, 251, 145, 253, 136, 208, 249 

,230,252,230,254,202,208,240,96 

•99 DATA72, 169, 4, 141, 136, 02, 104, 108, 254, 2 
07 

•IVj F0RI=1T074:READW$(I):NEXT 

•110 PRINT"[CLEAR][c 4]"TAB(17)"[7"[D0WN] 

" ] [RVSON ] SCRIPT" : PRINTTAB( 16)"[ DOWN ] [RVS 

ON] ANALYSIS 

•114 PRINTTAB( 13) "[4"[D0WN]"][ RVSON ]BY BO 
B SPIRKO" 

•120 FORI=0TO14:READG$(I),G(I):NEXT 
•140 E=8:F0RI=1T049:READL:F0RJ=1T08:READK 
: P0KEPC+L*E+ J , K : NEXT : NEXT 

•150 PRINT"[H0ME]"TAB(19)"[8"[D0WN]"][BAC 

KARROW] [EP]":PRINTTAB(20)"[DOWN]]" 
•155 PRINTTAB(13)"[D0WN][D0WN][UPARR0W] 

[UPARROW] [UPARR0W][5" "][UPARROW]":PRIN 

TTAB(I4)"[D0WN]][6" "][EP]" 
• 160 F0RI=1T053 : READL : F0RJ=1T08 : READK : POK 

EPC+L*E+J,K: NEXT: NEXT 

•170 F0RI=0T014:F0RJ=OTOG(I):READT$(I,J): 

NEXT: NEXT 

•180 F0RI=0TO14:FORJ=0TOG(I):READT(I,J):F 
ORK=0T0T(I,J):READW(I,J,K) 
•190 NEXT: NEXT: NEXT 

•200 INPUT" [ CLEAR] [c 5] [DOWN][DOWN]FILENA 

ME" ;F$: PRINT" [ DOWN ][c l]N[c 5]EW OR [c 1 

]L[c 5]0AD?" 

•220 GETA$:IFA$=""THEN220 

IFA$="L"THEN4000 

PRINT" [DOWN ][c I]L[c 5]EFT- OR [c 1] 
5]IGHTHANDED?" 
GETH$ : IFH$=""THEN242 
IFH$="L"THEN500 
H$="R":GOT0500 
•300 B=VAL(A$)-1:FORC=OTOT(A,B):P(W(A,B,C 
))=P(W(A,B,C))+1:NEXT:RETURN 
•333 GETB$:IFB$=""THEN333 
•337 IFB$<>"1"THENRETURN 

•339 P$=P$+T$(A,B)+C0$:A$=:CHR$(B+49):G0SU 
B300: RETURN 

•344 PRINTTAB(5)T$(A,B)": [RVSON]"; :RETU 
RN 



LM 

DE 

HG 

NE 

FN 

DL 

AJ 

HL 
HH 



•230 
•240 
R[c 
•242 
•245 
•250 



IG 

EH 
GG 

BN 

GC 



LF 
PJ 
OC 

BO 

PI 



DN 
HL 
LO 

KE 
HN 
GI 
CP 

NF 
FI 

BJ 

FJ 



JM 



•400 PRINT"[c 4]":FORB=OTOG(A):PRINTTAB(7 

)RIGHT$(STR$(B+1),1)". "T$(A,B) :NEXT LL 
•405 PRINT" [c 7]"TAB(7); KM 

•410 PRINT"[RVSON][c B] [LEFT]"; :GETA$:PRI 
NT"[RVSOFF][c B][LEFT]"; :IFA$=""THEN410 PB 



•420 V=ASC(A$)-49:IFV<00RV>G(A)THEN410 AM 
•430 PRINT" ";:RETURN QA 

•450 PRINTLEFT$(P$(I),J):PRINTRIGHT$(P$(I 

),LEN(P$(I))-J):RETURN HG 

•500 F0RA=0T01 4 :AA=A+1: PRINT" [CLEAR] [BLUE 

][DOWN]"AA;G$(A)"[D0WN][c 5]" CD 

•510 ONAAGOSUBIOOO, 1200, 1400, 1600, 1800,20 

00 , 2200 , 2400 , 2600 , 2800 , 3000 , 3200 , 3400 BF 
•520 IFA=13THENG0SUB3600 NE 

•525 IFA=14THENG0SUB3800 PD 

•530 NEXT I A 

•600 PRINT"[CLEAR] [DOWN] [DOWN] [BLUE]"F$": 
SCRIPT CHARACTERISTICS [ DOWN ][c 5]": FORI 

=0TO14 ON 

•610 PRINT" [c 5]"G$(I)": [c 4]"; :IFI=4THE 

N650 BF 

•620 IFLEN(P$(I))<24THEN650 BJ 

•630 F0RJ=20T040:IFMID$(P$(I),J,1)=","THE 

NGOSUB450 : G0TO660 JD 

•640 NEXTJ MM 

•650 PRINTP$(I) KN 

• 660 NEXTI : IFA$="T"ORA$="D"THENPRINTK$ : GO 

T0745 DC 

•700 M=0:N=0:FORI=1T074:IFP(I)=.THEN740 FH 
•720 IFP(I)>2THENM=M+1:T1(M)=I:G0T0740 PC 
•730 IFP(I)=2THENN=N+1:T2(N)=I LN 

•740 NEXT:PRINTK$ ME 

•745 GETA$:IFA$=""THEN745 KF 

•746 PRINT"[CLEAR][BLUE]"F$": ANALYSIS" OK 
•750 Y=44 : PRINT" [ DOWN ][ DOWN ][c 4] DOMINANT 

TRAITS: [c 5]"; QC 

•760 F0RI=1T0M:X$=W$(T1(I)):Y=Y-2*(I=M):G 
OSUB950 EN 

•770 NEXT :Y=44: PRINT: PRINT" [c 4][D0WN]0TH 

ER TRAITS: [c 5]"; NH 

•780 F0RI=1T0N:X$=W$(T2(I)):Y=Y-2*(I=N):G 

0SUB950:NEXT OB 

•800 PRINT: PRINT"[ 4" [ DOWN ]"][c 1][3" "]E[ 

c 5]ND[3" "][c l]D[c 5]ISK[3" "][c l]T[c 
5]APE[3" "][c l]P[c 5]RINTER[3" "][c 1] 

R[c 5]UN[c 7]":PRINTTAB(3) KO 

•810 PRINT" [RVSOFF][c B][LEFT]"; :GETA$:IF 

A$=""THENPRINT" [RVSON ][c B] [LEFT]"; : GOTO 

810 MF 

•820 PRINT" [LEFT]";:IFA$="D"ORA$="T"THEN 

4100 AC 

•830 IFA$="P"THEN4200 JE 

•840 IFA$="R"THEN900 HJ 

•850 IFA$="E"THENEND FI 

•860 GOT0810 CN 

•900 F0RI=1T074:P(I)=0:NEXT:F0RI=0T013:P$ 

(I)="":NEXT:H$="":P$="":GOT0200 



FA 
OD 
AH 



•950 IF(LEN(X$)+2)>39-POS(0)THENPRINT 

•960 PRINTCHR$ ( 32) X$CHR$(Y);: RETURN 

■ 1000 PRINTTAB( 21 ) " [ BLACK ] [ BACKARROW ] "TAB 

(29)"[RVS0N]'[c 5]" HA 

•1010 PRINT"SCRIPT MAY BE [ RVSON ][ BLACK ] V 

ERTICAL[RVSOFF][c 5-] OR [c 5 ] [ RVSON ] [ BLA 



AHOY! 103 



CK]%&!$%&#[[c 5][RVS0FF] OR" MG 

1015 PRINT"IT MAY SLANT TO THE LEFT.": PR 
INT AH 

1020 PRINT"SLANT CAN ALSO VARY. FOR INST 
ANCE," OH 

1030 PRINT"SOME LETTERS MAY BE VERTICAL 
WHILE" AK 

1050 PRINT"OTHERS ARE SLANTED. IF THE SA 
MPLE" BO 

1060 PRINT"HAS MORE THAN ONE SLANT OR TH 
E SLANT" CA 

1070 PRINT" APPEARS INCONSISTENT THEN IT' 
S" KG 

1080 PRINT"CONSIDERED IRREGULAR.": PRINT JB 
1085 PRINT"OF THE FOLLOWING CHOSE THE ON 
E" MG 

1090 PRINT"THAT CLOSELY MATCHES THE SLAN 
T:"K$ JB 

1095 GETA$:IFA$=""THEN1095 KB 

1100 PRINT" [CLEAR] [BLUE]" JK 

1110 PRINTTAB(17)"3 4 5":PRINTTAB(13)"2[ 
3" "][c M] [s B] [c G][3" "]6":PRINTTAB( 
U)"[s I][3" "][c G][s -][c M][3" "][s U 
]" MO 

■1120 PRINTTAB(11)"1[3" "][s J] [s T][s 
-](s Y] [s K][3" "]7":PRINTTAB(12)"[s M 
] [s I] [s G][s -][s H] [s U] [s N]"LP 

•1130 PRINTTAB(13)"[s M] [s J] [3"[s -]" 
] [s K] [s N]":PRINTTAB(14)"[s M] [s I] 
[s H][s -][s G] [s U] [s N]" KF 

•1140 PRINTTAB(15)"[s M] [s J][s Y][s -][ 
s T][s K] [s N]":PRINTTAB(16)"[s M][s I] 
[c M][s -][c G][s U][s N]":PRINTTAB(17)" 
[s M][s J][s -][s K][s N]" DH 

•1150 PRINTTAB(18)"[s M][s -][s N]":PRINT 
TAB(8)"[23"[c Y]"]" HP 

•1160 GOSUB400:IFH$="L"THENA$=MID$("76543 
21",VAL(A$),1) MI 

•1170 GOSUB300 :P$(A)=T$( A, V): RETURN IL 

•1200 PRINT"THE BASELINE IS THE IMAGINARY 
LINE THAT" KH 

•1210 PRINT"WE WRITE ON. SOME WRITERS HAV 
E LINES" JK 

•1220 PRINT"THAT ARE STRAIGHT AS A RULER 
WHILE" FJ 

•1230 PRINT"OTHERS HAVE TROUBLE WRITING A 
STRAIGHT" DN 

•1240 PRINT"LINE EVEN WHEN THEY HAVE GUID 
E LINES. [DOWN] [DOWN] [BLUE]" PO 

•1260 S$=" [c A][5"[s *]"][c S]":F0RI=1T 
04 :PRINTS$;: NEXT: PRINT GF 

•1270 S$="[s -][c 4][5"[s C]"][BLUE][s -] 

[s -][c 4][s R][s F][s C][s D][s E][BL 

UE][s -] [s -][c 4][s E][s D][s C][s F] 

[s R][BLUE][s -] [s -][c 4][s C][s F][s 

C][s F][s C][BLUE][s -]" EH 

•1280 F0RI=0T03:PRINTTAB(2)S$;NEXT GM 

•1290 PRINT" [c 4] ":F0RI=0T03:PRINTTAB(4+ 
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9*1)1+1;: NEXT: PRINT: PRINT KB 

1299 GOSUB400:GOSUB300:P$(A)=T$(A,V):RET 
URN DD 

1400 PRINT"THE SIZE OF HANDWRITING IS JU 
DGED BY" JN 

1410 PRINT"SIZE OF THE MIDDLE ZONE LETTE 
RS SUCH AS" FC 

1420 PRINT"[RVSON] [BLACK ]A[c 5][RVS0FF], 

[RVSON] [ BLACK ]E[c 5][RVS0FF], [RVS0N][B 
LACK]M[c 5][RVS0FF], AND [ RVSON ][ BLACK ]V 
[c 5][RVS0FF]; LETTERS WITHOUT" EI 
1430 PRINT"UPPER OR LOWER LOOPS. AVERAGE 
D-SIZED" AK 

1440 PRINT"HANDWRITNG IS ABOUT 3 ML. HIG 
H. SELECT THE APPROPIATE SIZE:" IB 
1460 PRINTTAB(9)"[D0WN] [DOWN] [BLACK] [RVS 
ON][c D][RVSOFF] [BACK ARROW ]":C$=CHR$(2 
34) IJ 

1470 PRINTTAB(5)"[RVS0N][c +][c M][cEP][ 
sEP]"C$" LARGE [c I][c T][c @][c G] [ 
c *][c K]" IP 

1480 PRINTTAB(5) "[ RVSON] [c Q] [RVS0FF]"TA 
B(15)"]" CA 

1490 PRINTTAB(7)"[DOWN]l[6" "]2[6" "]3[4 
" "]4" LD 

1499 GOSUB400:G0SUB300:P$(A)=T$(A,V):RET 
URN DD 

1600 PRINT"CONTINUITY REFERS TO THE DEG 
REE OF" GO 

1610 PRINT"CONNECTEDNESS BETWEEN LETTERS 
. IF THE" LH 

1620 PRINT"WRITING IS MOSTLY OR ENTIRELY 

CONNECTED" HH 

1630 PRINT"THEN PRESS I. IF IT IS MOSTLY 
" IM 

1635 PRINT"OR ENTIRELY DISCONNECTED THEN 

PRESS 2." CC 

1640 PRINT"IF IT IS ABOUT EQUALLY CONNEC 
TED AND" OL 

1650 PRINT"DISCONNECTED THEN PRESS 3." DF 
1660 PRINTTAB( 30) " [ DOWN ] [ DOWN ] [ BLACK ] [ UP 
ARROW]" DF 

1670 PRINT" [RVSON] CONNECTED [s Q][s R 
]S[s S][s T][s U][s U][s V][s S][s W][s 
V][s Q] [s S][s T]MBI[s W][s R]ON" BM 
1680 PRINTTAB(7)"[D0WN]1"TAB(19)"2"TAB(3 
1) "3 [DOWN] [DOWN]" DH 

1699 G0SUB400:G0SUB300:P$(A)=T$(A,V):RET 
URN DD 

1800 PRINT"THERE ARE A FEW STYLES OF" CE 
1805 PRINT"WRITING. ROUND SCRIPT APPEARS 

ROUND IN" FC 

1810 PRINT"IN EVERY WAY. THE TOPS OF LET 
TERS AND" PM 

1815 PRINT"THE CONNECTING STROKES ARE RO 
UND.": PRINT BC 

1820 PRINT"WHEREAS ANGULAR SCRIPT CONTAI 
NS LETTERS" GD 
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•1825 PRINT"THAT ARE ALL POINTED. OFTEN A 

SAMPLE" HN 

•1830 PRINT"IS NEITHER ENTIRELY ROUND OR 

ANGULAR" GB 

•1835 PRINT"BUT A COMBINATION OF BOTH.":P 

RINT LG 

•1840 PRINT"INFREQUENTLY, YOU'LL FIND HAN 

DWRITING" KL 

•1845 PRINT"THAT IS ORGINAL OR ARTISIC: T 
HE" IF 

•1847 PRINT"LETTERS ARE UNUSUAL OR UNCONV 
ENTIONAL." GN 

•1850 PRINT"BUT DON'T MISTAKE SUPERFLUOUS 
LOOPS" JK 

•1855 PRINT" AND FLOURISHES AS BEING ORIGI 
NAL."K$ EF 

•1860 GETA$:IFA$=""THEN1860 LJ 

•1870 PRINT" [ CLEAR] [c 4][3"[D0WN]"]"TAB(1 
8)"[RVS0N][s I][RVS0FF]"TAB(26)"+[RVS0N] 

FP 

•1875 PRINTTAB(4)"[RVS0N]X0UND"SPC(5)"[s 
B][s C][s D][s E][s F][s B][s G]"SPC(5)" 
*$#&[#[" FK 

•1880 PRINTTAB(16)"[RVS0N][s H]":PRINTTAB 
(6)"l"TAB(17)"2"TAB(29)"3":PRINT"[c 4]" BM 

• 1900 FORB=0T03 : PRINTTAB( 7 ) RIGHT$( STR$ ( B+ 
1),1)". "T$CA,B):NEXT KF 

•1910 G0SUB405:G0SUB300:P$=T$(A,V):PRINT HB 
•1920 PRINT"[ DOWN ][ DOWN] [c 5]WHICH BEST D 

ESCRIBES THE HANDWRITING? [c 4] [DOWN]" FI 
•1930 F0RB=4T05:PRINTTAB(7)RIGHT$(STR$(B- 

3),1)". "T$(A,B):NEXT CK 

• 1940 GOSUB405 : IFV> ITHENPRINT" [ LEFT ] " ; : GO 
T01940 X 

•1950 A$=CHR$(V+52):GOSUB300:P$CA)=P$+", 

"+T$ ( A, V+4): RETURN FN 

•2000 PRINT"LINES CAN BE FAR APART OR SO 

CLOSE" NH 

•2010 PRINT"TOGETHER THAT THE LOWER LOOPS 

OF ONE" GM 

•2020 PRINT"LINE TANGLES WITH THE UPPER L 

OOPS OF" PO 

•2030 PRINT"THE LINE BELOW:" JO 

•2040 PRINTrAB(13)"[RVS0N][BLACK]DRAGGING 

":PRINTTAB(16)"[s A] [PI] [s A]" DD 

• 2050 PRINTTABC 1 2 ) " [ RVSON ]TANGLED [ RVSOFF ] 

[RVS0N]LINES":PRINTTAB(15)"[PI]" CF 
•2060 PRINT" [ DOWN ][c 5] IF THE LINES ARE V 

ERY TANGLED THEN" OM 

•2070 PRINT"PRESS 5. IF THE LINES ARE NAR 

ROW BUT" NH 

•2080 PRINT"0NLY A FEW LOOPS ARE TANGLED 

PRESS 4." AJ 

•2090 PRINT"IF LINES ARE CLOSE BUT NOT TO 

UCHING" PB 

•2100 PRINT"PRESS 3. IF THE LINES ARE WID 

E PRESS 2." GC 

•2110 PRINT"IF THE SPACE BETWEEN LINES IS 



SO WIDE" JN 

•2120 PRINT"THAT A ANOTHER LINE COULD BE 

PLACED" FE 

•2130 PRINT"BETWEEN THEM THEN PRESS l.":P 

RINTK$ AC 

•2140 GETA$:IFA$=""THEN2140 KB 

•2199 PRINT"[CLEAR][4"[DOWN]"]":GOSUB400: 

GOSUB300:P$(A)=T$(A,V):RETURN BD 

•2200 PRINT"LEFT AND RIGHT MARGINS ARE TY 

PICALLY" HB 

•2210 PRINT "ABOUT ONE INCH WIDE. OFTEN T 

HEY ARE" KI 

•2220 PRINT"MADE WIDER OR NARROWER, OR AR 

E" MC 

•2230 PRINT"DIFFERENT WIDTHS. CHOSE ONE T 

HE" BM 

•2240 PRINT"FOLLOWING. IF IT DOES NOT FIT 
IN ANY" MH 

•2250 PRINT"CATEGORY, EG, A MARGIN MAY BE 

NARROW AT" nN 

•2260 PRINT"AT THE TOP AND WIDE AT THE BO 

TTOM, THEN PRESS 6.":PRINTK$ JP 

•2265 GETA$:IFA$=""THEN2265 NL 

•2270 PRINT" [CLEAR]" HH 

•2280 S$="[BLUE][c G][c 4][6"[s C]"][BLUE 

][c M][3" "][s Y][c 4][7"[s F]"][BLUE][s 
T] [s B][c 4] [4"[s C]"] [BLUE][s B]": 

F0RI=1T05: PRINTTABC 5)S$: NEXT NP 

•2290 PRINTTAB(8)"[ BLACK ]1"TAB( 20) "2"TAB( 

30) "3 [DOWN]" KJ 

•2300 S$="[BLUEj[s B] [c 4][5"[s C]"][BLU 

E][s H][3" "][s H][c 4][6"[s F]"] [BLUE] 

[s B]":F0RI=1T05:PRINTTAB(5)S$:NEXT FL 
•2310 PRINTTAB(8)"[ BLACK ]3"TAB( 20) "4[D0WN 

]" DP 

•2399 GOSUB400:GOSUB300:P$(A)=T$(A,V):RET 

URN DD 

•2400 PRINT"PRESSURE IS SOMETIMES DIFFICU 

LT TO [6" "] ASSESS. FOR HEAVY"; PM 

•2410 PRINT" PRESSURE, TURN THEt4" "]PAGE 

OVER AND SEE OR EVEN FEEL IF THE "; KD 
•2430 PRINT" PEN HAS LEFT INDENTATIONS I 

N THE PAPER." CG 

•2440 PRINT" [ DOWN ]LIGHT PRESSURE APPEARS 

AS DELICATE OR" IH 

•2450 PRINT"FAINT HANDWRITING. IF PRESSUR 

E APPEARS TO BE NEITHER HEAVY OR "; PB 
•2470 PRINT"LIGHT[s *][s *]0R Y0U[4" "]SI 
MPLY CAN'T TELL[s *][s *]THEN PRESS 3.[D 
OWN] [DOWN]" IG 

•2499 GOSUB400:GOSUB300:P$(A)=T$(A,V):RET 
URN DD 

•2600 PRINT"SPEED IS ALSO DIFFICULT TO DE 
TERMINE.[3" "]SLOW WRITING IS OFTEN "; AL 

•2610 PRINT"DISCONNECTED AND CONTAINS AW 
KARD OR FLOURISHED FORMS." HH 

•2650 PRINT"T'S ARE CAREFULLY CROSSED AND 
I'S DOTTEDPRECISELY." DO 
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•2660 PRINT" [DOWN] FAST SCRIPT IS MOSTLY C 

ONNECTED AND[5" "]CONTAINS NATURAL, "; OE 
•2680 PRINT"AND UNC0MPLICATED[5" "] FORMS 

T-BARS AND I-DOTS MAY BE PLACED TO "; BK 
•2685 PRINT"THE RIGHT. FAST WRITING IS US 

UALLY[3" "] INCLINED." EL 

•2690 PRINT" [DOWN] IF THE WRITING APPEARS 

NEITHER FAST OR" CC 

•2700 PRINT"SLOW OR YOU'RE NOT SURE, THEN 

PRESS 3." LL 

•2799 G0SUB400:G0SUB300:P$(A)=T$(A,V):RET 

URN DD 

•2800 PRINT"UPPER ZONES REFER TO THE UPPE 

R LOOPS ON" ND 

•2805 PRINTTAB(16)"[c 4][UPARR0W] [UPARR 

0W][6" "][BACKARROW]" MN 

•2810 PRINT"[c 5]LETTERS SUCH AS [RVSON][ 

c 4]B[c 5][RVS0FF], [RVSON][c 4]H[c 5][R 

VSOFF], AND [RVS0N][c 4]L[c 5][RVS0FF]. 

THE" KL 

•2820 PRINT"L0WER ZONE CONSISTS OF THE LO 

WER LOOPS" OP 

•2830 PRINT"ON LETTERS SUCH AS [RVSON][c 

4]G[c 5][RVS0FF], [RVSON][c 4]P[c 5][RVS 

OFF], AND [RVS0N][c 4]Y[c 5][RVS0FF]." lA 
•2840 PRINTTAB(19)"[c 4]] [EP][6""]]" LP 
•2845 PRINT" [c 5]TYFICALLY UPPER AND LOWE 

R ZONES ARE[5" "] ABOUT THE SAME HEIGHT 

R"; JB 

•2846 PRINT" HIGHER THAN THEMIDDLE ZONE. 

IF THE ZONES ARE ABOUT [5" "] EQUAL"; OD 
•2870 PRINT" PRESS 1. IF THE THE ZONES VA 

RY[4" "]THEN PRESS 6. [DOWN]" KA 

•2885 PRINT"IF EITHER UPPER OR LOWER ZONE 

IS SHORT THEN CONSIDER IT BEING "; MK 
•2895 PRINT"NORMAL. IF BOTH ZONES ARE SH 

ORT THEN PRESS 5."K$ JL 

•2900 GETA$:IFA$=""THEN2900 LF 

•2910 PRINT" [CLEAR] [c 4]":S$="[RVS0N]4O44 

YGAG" NB 

•2920 PRINTTAB(5)"< «"TAB(15)"> »"TAB(2 

5)"< «" NM 

•2930 FORI=5TO25STEP10:PRINTTAB(I)S$; :NEX 

T: PRINT OL 

•2940 PRINTTABC9)"]] ]"TAB(19)"]] ]"TAB(2 

9)"[PI][PI] [PI][DOWN]" OH 

•2950 PRINTTAB(9)"1"TAB(19)"2"TAB(29)"3[D 

OWN]" CL 

•2960 PRINTTAB(5)">[SS]»"TAB(25)"< >" FF 
•2970 FORI=5T025STEP10:PRINTTAB(I)S$; :NEX 

T: PRINT OL 

•2980 PRINTTAB(9)"[PI][PI] [PI]"TAB(19)"= 

= ="TAB(29)"][PI] =[DOWN]" IF 

•2990 PRINTTAB(9)"4"TAB(19)"5"TAB(29)"6[D 

OWN]" CG 

•2999 GOSUB400:G0SUB3r/J:P$(A)=T$(A,V) :RET 

URN DD 

•3000 PRINT"OVALS ARE THE LETTERS [RVSON] 



[c 4]A[c 5][RVS0FF] AND [RVSON][c 4}0[RV 
S0FF][c 5]. THESE[4" "]ARE USUALLY CLOSE 
D:"; MO 

3010 PRINT" [RVSON][c 4]0VA4S[RVS0FF][c 
5]. BUT SOMETIMESTHEY HAVE OPENINGS AT T 
HE TOP: [RVSON] [c 4]QV@4S" LB 

3040 PRINT"[c 5][D0WN]IF MOST OR ALL THE 

OVALS ARE CLOSED" FD 

3050 PRINT"THEN PRESS 1. IF MOST OR ALL 
OVALS" NB 

3060 PRINT"ARE OPEN PRESS 2. IF THEY ARE 

EQUALLY" :PRINT"PRESENT PRESS 3. [DOWN] [D 
OWN]" lA 

3099 G0SUB400 : GOSUB300 ; P$ ( A ) =T$ ( A , V ) : RET 
URN DD 

3200 PRINT"T-BARS ARE THE STROKES THAT C 
ROSS THE[3" "]LETTER T. OF THE FOLLOWING 



AT [6" "] LEAST THR 

THEN" 

NOT THEN PRESS AN 



:PRIN 



3220 PRINT" CHOSE THE[4" "]LENGTH WHICH 

IS THE MOST PRAVALENT:" 

3230 PRINT"[BLACK] [DOWN] [DOWN ]"TAB(10)"[ 

RVSON ]T"TAB( 20) " 1 2"TAB( 30) "3 [ DOWN ] " 

3235 PRINTTAB(10)"1"TAB(20)"2"TAB(30)"3[ 

DO\ffl][DOWN][c 4]" 

3240 FORB=0T02:PRINTTAB(7)RIGHT$(STR$(B+ 

1),1)". "T$(A,B):NEXT 

3245 GOSUB405:GOSUB300:P$=T$(A,V)+", " 

3250 PRINT"[CLEAR][c 5]T-BARS ALSO VARY 

IN POSITION. IF ANY OF THE FOLLOWING APP 

EAR"; 

3255 PRINT" DISTINCTLY 

EE TIMES IN THE SAMPLE 

3265 PRINT"PRESS 1. IF 

Y:[c 4][D0WN][D0WN]" 

3270 B=3 : GOSUB344 : PRINT"4" : G0SUB333 

T 

3275 B=4 : G0SUB344 : PRINT"05" : G0SUB333 : PRI 

NT 

3280 B=5:G0SUB344:PRINT"62":G0SUB333 

3290 B=6 : PRINTTAB( 1 2 ) " [ RVSON ] 7 " : G0SUB344 

: PRINT"4" : G0SUB333 : PRINT : B=7 : G0SUB344 

3300 PRINT"[RVS0N]8":G0SUB333:P$(A)=LEFT 

$( P$, LEN ( P$ ) -2 ):P$="":LL=0: RETURN 

3400 PRINT"I-DOTS ARE INTERPRETED IN A S 

IMILAIR WAYTO T-BARS. IF ANY OF THE"; 

3420 PRINT" FOLLOWING [6" "] APPEARS DISTI 

NCTLY MORE THAN TWICE THEN" 

3430 PRINT"PRESS 1. IF NOT PRESS ANY: [DO 

WN][DOWN][c 4]" 

3450 F0RF=r/r05 : B=F : GOSUB344 : PRINTCHR$ ( 20 

2+F):G0SUB333: PRINT 

3460 NEXT:IFP$=""THENRETURN 

3470 P$(A)=LEFT$(P$,LEN(P$)-2) :RETURN 

3600 PRINT"BEGINNING STROKES ARE THE STR 

OKES AT[4" "]THE BEGINNING OF WORDS:" 

3620 PRINT"[ RVSON ][c 4]THE -COMMODORE -C 

0MPUTER[RVS0FF]":PRINTTAB(19)"[EP]" 

3630 PRINT" [c 5] IF MOST OR ALL ALL HAVE 



JM 
BE 
LC 
LK 

AG 

LP 



LD 
BH 

NF 

PE 

BF 

LD 

FO 

IH 

KE 

EM 

HM 

ND 
OA 
HK 

CA 

NJ 
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BEGINNING [7" "] STROKES THEN PRESS 1," JJ 
•3640 PRINT"PRESS 2 IF THEY ARE MOSTLY AB 

SENT:" IF 

•3650 PRINT"[RVSON][c 4][s W]HE [s S]OMM0 

DORE [s S]0MPUTER[RVS0FF]":PRINTTAB(17)" 

[EP]" LN 

•3660 PRINT" [c 5] IF THEY BOTH APPEAR EQUA 

LLY PRESS 3. [3" [DOWN]"]" OH 

•3699 G0SUB400:G0SUB300:P$(A)=T$(A,V):RET 

URN DD 

•3800 PRINT"THE HEIGHT OF CAPITALS IS DET 

ERMINED IN" 00 

•3810 PRINT"RELATIONSHIP TO THE MIDDLE ZO 

NE." FP 

•3820 PRINT"MEDHJM SIZED CAPITALS ARE ABO 

UT TWICE" PG 

•3830 PRINT"THE HEIGHT OF MIDDLE ZONE LET 

TERS. TALL" FA 

•3840 PRINT"OR SHORT CAPITALS ARE TALLER 

OR SHORTER" EK 

•3850 PRINT"THEN THE MIDDLE ZONE. [DOWN] [D 

OWN]" EJ 

•3899 GOSUB400:GOSUB300:P$(A)=T$(A,V):RET 

URN DD 

•4000 PRINT" [DOWN] [c l]D[c 5]ISK OR [c 1] 

T[c 5]APE?" HH 

•4005 GETA$ : IFA$=""THEN4005 LF 

•4006 IFA$<>"T"ANDA$<>"D"THEN4005 EC 
• 4010 IFA$="D"THEN0PEN2 , 8,2, F$+" , P , R" : GOT 

04030 DM 

•4020 0PEN2,I,0,F$ CO 

•4030 INPUT#2,H$,M,N:FORI=OT014:INPUT#2,P 

$ : IFI=40RI=1 10RI=1 2THENG0SUB4050 PH 
•4035 P$(I)=P$:NEXT PI 

•4040 F0RI=1T0M:INPUT#2,T1(I):NEXT:F0RI=1 

TON:INPUT#2,T2(I):NEXT:CLOSE2:G0T0600 NG 
•4050 Q$="":F0RJ=1T0LEN(P$):M$=MID$(P$,J, 

1 ) : IFM$="-"THENM$=" , " GI 

•4060 Q$=Q$+M$: NEXT :P$=Q$: RETURN BA 
•4100 PRINT" [c 5][D0WN]":IFA$="D"THEN0PEN 

2,8,2,"0:"+F$+",P,W":PRINT"[c 4]SAVING " 

F$:GOT04120 JK 

•4110 0PEN2,1,1,F$ ED 

•4120 PRINT#2,H$;N$;M;N$;N:F0RI=0T014:P$= 

P$CI) :IFI=40RI=110RI=12THENG0SUB4150 DN 
•4130 PRINT#2,P$:NEXT BB 

•4140 F0RI=1T0M:PRINT#2,T1(I):NEXT:F0RI=1 

TON:PRINT#2,T2(I):NEXT:CLOSE2:GOT0746 GB 
•4150 P$="":F0RJ=1T0LEN(P$(I)):M$=MID$(P$ 

(I),J,1):IFM$=","THENM$="-" LE 

•4160 P$=P$+M$: NEXT: RETURN FK 

■4200 0PEN4,4:PRINT#4,CHR$(14)CHR$(16)"25 

SCRIPT ANALYSIS"CHR$(15) PN 

■4210 PRINT#4,N$N$"NAME: "F$N$N$"HANDWRIT 

ING CHARACTERISTICS" DL 

•4240 FORI=rjT014:PRINT#4,G$(I)": "P$(I):N 

EXT:PRINT#4,N$"D0MINANT TRAITS" IC 
•4250 F0RI=1T0M-1:PRINT#4,W$(T1(I))C0$;:I 



FI/5=INT(I/5)THENPRINT#4 MB 

4255 NEXT:PRINT#4,W$(T1(M))D$N$ GP 
4270 F0RI=1T0N-1:PRINT#4,W$(T2(I))C0$; :I 
FI/5=INT(I/5)THENPRINT#4 JF 

4275 NEXT:PRINT#4,W$(T2(N))D$N$ GL 
4280 CL0SE4:G0T0746 DH 

5000 DATA AESTHETIC, AFFECTIONATE, AGGRESS 
IVE, ALOOF, AMBITIOUS BO 

5010 DATA AMIABLE, ANXIOUS, ARDENT, ARROGAN 
T, ASSERTIVE KN 

5020 DATA BALANCED, CALM, CAREFUL, CARELESS 
.CAUTIOUS 01 

5030 DATA CONFUSED, CONSCIENTIOUS, CONSERV 
ATIVE, CONVENTIONAL, CRITICAL NI 

5040 DATA DIFFIDENT, DILIGENT, EMOTIONAL, E 
NERGETIC, ENTERPRISING AF 

5050 DATA EXCITABLE, EXTRAVAGANT, EXTROVER 
TED, FASTIDIOUS, FLEXIBLE PD 

5060 DATA FRUGAL, GENEROUS, IDEALISTIC, ILL 
OGICAL BG 

5070 DATA IMAGINATIVE, IMPATIENT, IMPRESSI 
ONABLE, IMPULSIVE, INDECISIVE CM 

5080 DATA INDEPENDENT, INDIFFERENT, INDIVI 
DUALISTIC, INHIBITED, INSINCERE CH 

5090 DATA INTELLIGENT, INTROVERTED, IRRITA 
BLE, LANGUID, LOGICAL BN 

5100 DATA LOQUACIOUS, LOYAL, MATURE, METHOD 
ICAL, NERVOUS EH 

5110 DATA ORGANISED, PASSIONATE, PASSIVE,? 
ATIENT, PRACTICAL KJ 

5120 DATA REALISTIC, REASONABLE, REFLECTIV 
E, RESERVED, RESOLUTE IL 

5130 DATA SECLUSIVE, SELF-DISCIPLINED, SEL 
FISH, SENSITIVE, SINCERE EB 

5140 DATA SPONTANEOUS, TACTFUL, TACTLESS, U 
NDISCIPLINED, UNRELIABLE BO 

5200 DATA SLANT, 7, BASELINE, 3, SIZE, 3, CONT 
INUITY,2,STYLE,5,LINE SPACING, 4 FG 
5210 DATA MARGINS, 5, PRESSURE, 2, SPEED, 2, Z 
ONES , 5 , OV ALS , 2 , T-BARS , 7 , I-DOTS , 5 LD 
5220 DATA BEGINNING STROKES, 2, CAPITALS, 2 GD 

6028 DATA28, 160, 160, 160, 160,64,0,0,0 PG 

6029 DATA29, 10, 10, 10, 10, 10,4,0,0 FM 

6030 DAT A30, 0,0, 0,0, 0,0, 64, 64 LC 

6031 DATA31, 0,0, 0,0, 0,0, 16,40 GA 
6033 DATA33,0,0, 14, 18,32,99, 156,0 PM 
6043 DATA43,0,0,0,0,0,2,6,12 EE 

6060 DATA60,0,0,0,0,0,8,8,8 DA 

6061 DATA61,6,10,4,0,0,0.0,0 GA 

6062 DATA62,0,0,8,8,8,8,8,8 BG 
6065 DATA65,10,10,18,50,44,44,56,40 LI 

6067 DATA67, 0,0, 0,85, 170,0,0,0 AH 

6068 DATA68, 0,0, 85, 170,0,0,0,0 DA 

6069 DATA69, 0,85, 170,0,0,0,0,0 CJ 

6070 DATA70, 0,0, 0,0, 170,85,0,0 GB 

6073 DATA73,8,8,12,4,6,2,3,1 GD 

6074 DATA74, 128, 128, 192, 64, 96, 32, 48, 16 EP 

6075 DATA75,1,1,3,2,6,4,12,8 HA 
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•6077 
•6078 
■ 6082 
•6085 
•6094 
•6128 
•6129 
•6130 
•6131 
•6132 
•6133 
•6135 
■6136 
•6137 
•6139 
•6140 
•6141 
•6142 
•6143 
•6144 
•6145 
•6146 
•6147 
•6148 
■6149 
•6150 
•6152 
•6153 
•6154 
•6155 
•6160 
•6161 
•6162 
•6163 
•6164 
•6165 
•6166 
•6167 
•6168 
•6170 
•6173 
■6176 
•6177 
•6178 
•6179 
•6180 
•6181 
•6182 
•6183 
•6184 
•6194 
•6195 
•6196 
•6197 
■6198 
•6199 
•6200 
•6201 



DATA77, 
DATA78, 
DATA82, 
DATA85, 
DATA94, 
DATA 128 
DATA 129 
DAT A 130 
DATA131 
DATA 132 
DATA133 
DATA135 
DATA 136 
DATA 137 
DATA 139 
DATA140 
DATA141 
DATA 142 
DATA143 
DATA144 
DATA145 
DATA146 
DATA147 
DATA148 
DATA149 
DAT A 150 
DATA152 
DAT A 153 
DATA154 
DATA155 
DATA160 
DATA161 
DATA162 
DATA163 
DATA 164 
DATA165 
DATA166 
DATA167 
DATA168 
DATA 170 
DATA173 
DATA 176 
DATA177 
DATA178 
DATA 179 
DATA 180 
DATA181 
DATA182 
DATA 183 
DATA184 
DATA 194 
DATA195 
DATA196 
DATA197 
DATA 198 
DATA 199 
DATA200 
DATA201 



128,192,96,48,24,12,6,3 KG 

1,3,6,12,24,48,96,192 GC 

0,0,0,0,0,85,170,0 KK 

16,16,48,32,96,64,192,128 AP 

6,10,10,18,18,18,18,12 HB 

0,0,16,36,68,68,187,0 HM 

0,0,26,38,66,66,189,0 KE 

64,64,92,98,66,67,188,0 AA 

0,0,60,98,64,193,62,0 m 

2,2,58,70,66,194,61,0 GK 

0,0,28,36,88,96,191,0 MN 

0,0,26,38,66,66,189,6 KB 

64,64,92,98,66,66,129,0 CI 

0,8,0,8,24,40,199,0 OA 

64,64,88,100,72,88,135,0 GP 

40,40,40,40,40,48,223,0 GC 

0,0,84,106,74,74,137,0 AE 

0,92,98,66,66,129,0 JM 

0,28,43,82,98,60,0 AH 

32,44,50,98,162,173,160 KI 

0,16,35,66,68,184,0 DL 

0,32,60,36,68,131,0 PF 

0,12,24,36,68,187,0 FJ 

127,8,8,24,40,199,0 IH 

0,66,66,66,70,185,0 EM 

0,67,66,66,164,24,0 GL 

0,24,36,68,66,129,0 MK 

0,66,66,66,70,187,6 JB 

0,12,18,34,98,156,0 DN 

1,26,38,68,202,49,0 GA 

0,0,0,0,0,0,0 AB 

0,12,18,32,96,159,0 DE 

1,26,38,68,202,49,0 GE 

0,28,36,88,97,158,0 CC 

10.12,24,48,80,144,15,0 lA 

0,0,8,24,104,134,0 PJ 

0,0,44,50,68,135,0 GG 

0,0,0,3,5,5,10 BN 

1,26,38,68,202,49,0 CC 

12,24,16,38,66,196,56,0 LC 

0,0,0,0,0,7,0 EK 

3,0,0,0,0,0,0 NN 

255,8,8,24,40,199,0 BN 

192,0,0,0,0,0,0 MH 

30,8,8,24,40,199,0 FK 

8,8,8,24,40,199,0 BM 

232,8,8,24,40,199,0 GL 

11,8,8,24,40,199,0 NH 

0,0,0,0,0,63,0 BK 

8,8,63,24,40,199,0 BG 

0,3,13,18,38,217,0 FK 

0,9,27,45,81,160,0 JN 

0,3,13,18,38,217,6 FC 

0,17,50,86,154,17,0 MB 

12,12,20,36,66,129,0 GB 

0,16,56,73,138,12,0 GH 

12,8,16,48,32,0,0,0 NN 

0,0,0,0,1,3,2,6 GJ 



6202 DATA202 

6203 DATA203 

6204 DATA204 

6205 DATA205 

6206 DATA206 

6207 DATA207 

6209 DATA209 

6210 DATA210 

6211 DATA211 

6212 DATA212 

6213 DATA213 

6214 DATA214 

6215 DATA215 

6223 DATA223 

6224 DATA224 

6225 DATA225 

6226 DATA226 

6227 DATA227 

6228 DATA228 

6229 DATA229 

6230 DAT A 2 30 

6231 DATA231 

6232 DATA232 

6233 DATA233 

6234 DATA234 

6235 DATA235 

6236 DATA 2 36 



,0,0,16,0,16,16,48,206 GK 
,0,0,0,0,16,16,48,206 DC 
,8,0,0,0,16,16,48,206 NJ 
,0,0,1,0,16,16,48,206 CN 
,0,0,128,0,16,16,48,206 IH 
,4,8,0,0,16,16,48,206 FC 
,2,2,58,70,66,66,60,0 HE 
,16,0,16,48,80,16,12,0 DO 
,0,0,28,34,64,66,60,0 PI 
,0,0,28,34,66,68,56,0 PI 
,0,0,44,114,34,34,65,0 JM 
,0,0,28,36,120,66,60,0 OM 
,16,126,16,16,16,18,12,0 JJ 
,0,0,0,0,0,93,255,0 DN 
,0,0,0,0,0,93,255,0 FC 
,0,0,18,18,18,164,219,0 FJ 
,0,0,0,0,124,212,87,0 MI 
,0,0,1,1,205,147,238,0 MK 
,0,0,32,0,36,109,182,0 PK 
,0,0,0,0,190,170,201,0 BN 
,28,34,66,66,66,67,62,10 LM 
,16,46,34,66,66,130,1,0 EP 
,28,34,68,88,96,96,159,0 MB 
,28,38,74,82,98,198,57,0 MJ 
,24,24,24,24,24,36,195,0 ML 
,18,18,34,34,34,34,28,0 01 
,0,0,0,0,24,24,255,24 BG 
7000 DATAVERY RECLINED, RECLINED, LIGHTLY 
RECLINED, VERTICAL, LIGHTLY INCLINED PM 
7002 DAT AINCLINED, VERY INCLINED, IRREGULA 
R DL 

7010 DATASTR AIGHT , ASCENDING , DESCENDING , U 
NEVEN EI 

7020 DATAVERY LARGE, LARGE, MEDIUM, SMALL GE 
7030 DATAMOSTLY CONNECTED, MOSTLY UNCONNE 
CTED DD 

7032 DATABOTH CONNECTED & UNCONNECTED BE 
7040 DATAROUND, ANGULAR, ROUND & ANGULAR, 
RIGINAL, LEGIBLE, ILLEGIBLE/MESSY KA 
7050 DATAVERY WIDE, WIDE, MEDIUM, NARROW, TA 
NGLED FH 

7060 DATABOTH NORMAL, BOTH NARROW, BOTH WI 
DE,WIDE LT/NORMAL OR NARROW RT CF 
7062 DATANARROW OR NORMAL LT/WIDE RT.OTH 
ER EG 

7080 DATAHEAVY , LIGHT , MEDIUM, FAST, SLOW, ME 
DEUM NC 

7090 DATASYMMETRICAL, EXTENDED UZ.EXTENDE 
D LZ IH 

7092 DATABOTH UZ & LZ EXTENDED, BOTH UZ & 

LZ SHORT, IRREGULAR 00 

7100 DATAMOSTLY OPEN, MOSTLY CLOSED, BOTH 
OPEN & CLOSED OB 

7110 DATAREGULAR , LONG , SHORT , ABSENT , LEFT , 
RIGHT, HIGH, LOW GN 

7120 DATAPRECISELY PLACED, ABSENT, HIGH, RI 
GHT, LEFT, DASHED NF 

7130 DATAMOSTLY ABSENT, MOSTLY PRESENT, BO 



108 AHOY! 



IMPORTANT! '-^"^''s°'i vjhWe background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
I III r Llrl irili I ! and provide other essential information on entering Ahoy! programs- Refer to these pages before entering any programs! 

TH ABSENT & PRESENT LC 15) CC 



4, 39, 40, 41, 44, 67, 4, 39, 43, 44, A 
4,15,31,40,41,49,62,63,5,2,6, 



7140 DAT ATALL, MEDIUM, SHORT 

8300 DATA5,39.40,41,44,65,67 

8301 DATA5 
6,71 

8302 DATA 7 
8,19,68,69 
8304 DAT A 7 
3,26,38,56 
8310 DATA6 
5,26,35,70 
8312 DATA3 
4 

8320 DATA4 
,42 

8322 DATA3 
9,41,45,58 
8330 DATA6 



68,4,1,20,25,42,52 



8340 DATA4 

5,64 

8342 DATA2 

51,61,66 

8344 DATA8 

8350 DATA2 

,28,49,60 

8352 DATA6 

34,35,63,73 

8360 DATA3 

8362 DATA2 

,50,0,0 

8370 DATA4 

8,68,0,0 

8380 DATA8 



8390 DAT A3 

,4.5,17,56 

8392 DATA5 



8394 DATA4 

8400 DATA5 

59,1,51,69 

8410 DATA3 

1,57,63 

8412 DATA2 

26,33,35,1 

8420 DATA4 

5 

8430 DATA3 



8440 DATA3 



EP 
OE 

PI 

FD 
2,8,23,24,37,56,69,70,6,2,8,2 
68,3,7,14,16,74 PI 

11,17,29,53,64,66,69,5,5,24,2 

CH 
26,39,54,73,5,7,26,39,54,73,7 

EH 
9,22,24,27,28,5,9,27,32,35,40 

00 
18,55,61,68,9,1,13,18,21,22,2 
71 DO 

13,19,22,34,53,61,64,2,34,35, 



OP 



1,2,6,30,32,6,3,20,24,36,37,4 



EK 



1,42,45,3,1,35,42,45,4,13,17, 

CO 
14,16,35,36,37,39,45,54,73 KG 
4,63,65,4,13,45,55,71,66,3,11 

ME 
14,16,31,34,47,70,72,5,14,31, 

MK 
11,13,17,55,4,29,50,60,68,72 FM 
4,62,65,1,15.21,4,27,29,32,44 

CJ 
10,24,25,56,64,5,1,21,30,37,4 

DL 
1,3,5,10,22,25,30,38,70,8,11, 



12,13,18,29,48,57,58,62.0,0 



KE 



6,11,12,13,5,5,33,35,37,45,68 
59,60 HH 

5,33,35,37,45,56,3,18,23,59,6 

KA 
14,16,23,37,39 LO 

13,15,41,46,63,71,3,17,43,51, 

CE 
11,12,13,66,3,24,36,47,64,2,2 

HP 
14,73,74,1,15,39,2,3,38,72,2, 
57,58 DC 

10,17,40,42.52,1.19,53,1,33,3 

BN 
11,13,17,55,2.14,73,74,0,35,2 



,17,52,59,2.15,21,39,4,20,35,36,42,47 



5,9,10,27,0,40,2,11,30,63 



BK 
MN 



B R A I O R ii M E 

FROM PAGE 45 

•10 DIM R(5),RC(5),N(5),T(15),W$(15),W2$( 



20 SC=1024:QA=198tQB=214:WW=54272;GU=0:G 
F=0:TT=0:OL=0 DB 

30 A$(1)="[RVS0N][WHITE]Y0U WIN [3"!"][R 
VS0FF]":A$(2)="[12" "]" HA 

40 A$(3)="[35" "]" OJ 

50 WF=54276 : Pl=54273 : VL=54296 : AD=54277 : F 
Q=l : CL=53280 : CH=646 AO 

60 P0KECL,3:POKECH,7:POKB53281,0:PRINT"[ 
CLEAR]" OK 

70 REM JD 

80 F0RT=1T0500:F=1:F=0:NEXT JI 

90 F0RI=1T06:READH(I):READL(I):READD(I): 
NEXT: REM * PITCH VALUES LG 

100 F0RI=IT018:PRINT"[H0ME][3"[D0WNr']"; 
SPC(I);" [s Q]":F0RT=1T080:NEXT:NEXTI FE 
110 L(1)=225:L(2)=160:R(1)=97:R(2)=160:Q 
=1163:POKEQ,160 JF 

120 LF=Q-1;RT=Q+1 :FORI=1T010:FORJ=1T02:P 
OKELF,L(J):POKERT,R(J) FJ 

1 30 F0RT=1T060 : NEXT : NEXT J : LF=LF-1 : RT=RT+ 
1:NEXTI EP 

140 F0RT=1T0200 : NEXT : MM$="BRAINFRAME" : Q= 
LF+2 OK 

150 F0RI=1T010:M$=MID$(MM$,I.1):M=ASC(M$ 
):POKEQ,M+ 128-64 JO 

1 60 FQ=FQ+ 1 : GOSUB 1 2 20 : Q=Q+2 : FORT= 1T0300 
:NEXT:NEXTI AD 

170 FORT=1T0400: FQ=FQfl0:G0SUB1220:PRINT 
"[c 6]" HI 

180 PRINT"[ DOWN] [DOWN ]";TAB(9); "AN EXCER 
CISE IN LOGIC" EI 

190 PRINT"[D0WN][D0WN]";TAB(13);"F0R THE 
C-64[D0WN][D0WN][7"[LEFT]"]BY" AG 
200 PRINT" [ DOWN ] [ DOWN ] " ; TAB( 14 ) ; "NORM VO 
GEL" ML 

210 FORT=1T0425:F=1:F=0:F=T/33:NEXT DJ 
220 PRINT"[HOME][6"[DOWN]"]";:G0SUB1260 BA 
230 PRINT" [PURPLE] I WILL SELECT A 3 TO 
5 - DIGIT NUMBER [3" "](YOUR CHOICE),"; DI 
240 PRINT" COMPOSED OF NUMBERS FROM [WHI 
TE]0 - 9. [PURPLE] (NOTE: EACH NUMBER"; GC 
250 PRINT" CAN BE USED [ WHITE ]M0RE THAN 
ONCE). [PURPLE] AFTER ENTERING Y0UR[3" 
"]TRY"; KN 

260 PRINT" (YOU HAVE 15), I WILL TELL YO 
U HOW MANY NUMBERS ARE"; HI 

270 PRINT" CORRECT & IN THE [WHITE] COR- 
RECT POSITION."; FH 
280 PRINT" [PURPLE] AND HOW MANY ARE CORR 
ECT BUT IN THE [WHITE]WRONG[ PURPLE] POSI 
TION." JG 
290 PRINT" [DOWN] IF YOU GIVE UP DURING T 
HE GAME. JUST[4" "]TYPE IN"; MM 
300 PRINT" [ WHITE ]E[ PURPLE], AND I'LL TE 
LL YOU WHAT THE[3" "]S0LUTI0N WAS AND"; BN 
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310 PRINT" END THE GAME.":PRINTTAB(13) ;" 
[DOWN] [WHITE] GOOD LUCK!" BP 

320 PRINT" [DOWN] ENTER THE SIZE OF THE N 
UMBER (3/4/5)"; FJ 

330 GETND$:IFND$=""THEN330 BG 

3A0 IFASC(ND$)<510RASC(ND$)>53THEN330 BF 
350 ND=VAL(ND$):GOSUB1260 JF 

360 IFND<>OLTHENGF=0:TT=0:GU=0:FORI=1T01 
5:W$(I)=" ":W2$(I)=" ":NEXT LJ 

370 PRINT" [ CLEAR ] [ DOWN ] " ; TAB( 10) ; " [ RVSON 
]";ND;" NUMBERS [RVSOFF]" IN 

380 PRINT"[D0WN][D0WN]";TAB(28);"N0.[3" 
"] WRONG" KP 

390 PRINT" TRY";TAB(27);"[CYAN]&[WHITE] 
P0S[3" "]P0S" EI 

400 POKEQB, 22: PRINT: PRINT" ( [YELLOW] 'R' 
[ WHITE ]T0 RE-DO LINE / [YELLOW] 'E' [WHITE 
] TO END GAME)" DM 

410 Tr=TT+l:TW=0:SP=10:P=9-ND:SP=10:IFNr> 
=3THENSP=12 NI 

420 FORI=ITOND:R(I)=INT(RND(0)*10) :NEXT: 
BC=7 : BB=1 EH 

430 POKEQB, 6: PRINT: JE 

440 REM JD 

450 REM *** START OF PLAY LOOP: *** IJ 
455 REM JD 

460 TW=0:YG=0:F0RZ=1T015:PRINTA$(3) BE 
470 PRINT "[UP][c 3]";Z;:P0KECH,BC+BB:W= 
6 MO 

480 FORI=ITOND PM 

490 GETN$:IFN$=""THEN490 LK 

500 IFN$="E"THENGOSUB1370:GOT0870 MN 
510 IFN$="R"THENG0SUB1 260 : PRINT : PRINT" [ U 
P]";SPC(3);A$(3):GOT0470 DJ 

520 IFASC(N$)<480RASC(N$)>57THEN490 BP 
530 PRINTTAB(W);N$;:N(I)=VAL(N$):W=W+P:N 
EXTI KC 

540 F0RI=1T0ND:RC(I)=R(I):FQ=N(I)+25:G0S 
UB1220 EH 

550 P0KE53280,N(I)+1 :FORJ=1T0450:NEXTJ:N 
EXTI LJ 

560 REM JD 

570 RFJ^ *** CORPOS COMPARATOR: *** NM 
580 CP=0:FORI=1TOND:IFN(I)=RC(I)THENCP=C 
P+1:N(I)=98:RC(I)=99 ME 

590 NEXTI:IFCP=ND-1THENTW=TW+1 LC 

600 REM JD 

610 REM *** COR COMPARATOR: *** OL 
620 C0=0:F0RI=1T0ND:F0RJ=1T0ND:IFN(I)=RC 
(J)THENCO=CO+l:N(I)=98:RC(J)=99 LF 
630 NEXTJtNEXTI NB 

640 IFCP=NDTHEN740 KA 

650 REM *** IN-GAME PROMPTS: *** OM 
660 IFCPONDTHEN PRINTTAB(28) ;CP;"[4" "] 
";CO:BB=-BB CD 

670 IFND=3ANDZ=K/rHENR=4:GOSUB1070 KH 
680 IFTW=4THENR=2;G0SUB1070 LP 

690 IFCP+C0=NDANDYG=r/rHENR=l:G0SUB1070 OF 



700 IFZ=14THENR=3:G0SUB1070 IG 

710 IFZ=15THENR=5:GOSUB1070:GOT0940 OB 
720 NEXTZ NM 

730 REM *** WIN ROUTINE: *** OL 
740 F=2:G=1:P0KECL, 2: PRINT" [CLEAR] [DOWN] 
[DOWN]";TAB(5);A$(l);SPC(7);Z;" TRIES" EJ 
750 GOSUB1310:PRINT"[DOWN][DOWN]";TAB(12 
);"[PURPLE]THE ANSWER WAS: [DOWN] [DOWN] [W 
HITE]" DC 

760 PRINTSPC(SP) ; :F0RI=1T0ND:PRINTR(I) ;S 
PC(6-ND);: NEXT: PRINT FK 

770 T(Z)=T(Z)+1:T$=STR$(T(Z)):W$(Z)=MID$ 
(T$,2,1):IFT(Z)<10THEN790 OL 

780 W2$(Z)=RIGHT$(T$,1) OJ 

790 IFZ>NDG0T0820 EL 

800 PRINT" [ DOWN ] [ DOWN ] [CY AN ] UNBELIEVEABL 
E! 'GIVEUPS' REDUCED TO '0M":GU=0:GF=1 HM 
810 GOT0940 DB 

820 IFZ<=ND+2THENPRINT" [ DOWN ] [ DOWN ] [ CYAN 
]NEXT TIME, I'LL HAVE TO GIVE U A HARDER 

ONE!":G0TO940 IN 

830 IFZ<ND+6THENPRINT" [ DOWN ] [ DOWN ] [ CY AN ] 
NOT BAD, BUT U NEED MORE PRACTICE !":G0 
T0940 ME 

840 PRINT" [DOWN] [CYAN] YOU NEED ALOT MORE 

PRACTICE! TRY AGAIN t":G0TO940 CI 
850 REM JD 

860 REM *** GIVEUP ROUTINE: *** LD 
870 GU=GU+1:IFGF=1THENGU=0 FB 

880 POKECL, 2: PRINT" [CLEAR ][3"[ DOWN ]"]";T 
AB(12);"THE ANSWER WAS: [DOWN] [DOWN] [WHIT 
E]" LO 

890 PRINTSPC(SP);:F0RI=1T0ND:PRINTR(I);S 
PC(6-ND);:NEXT:PRINT FK 

900 PRINT" [DOWN] [DOWN] [CYAN] TRY AGAIN! 
YOU MIGHT GET IT NEXT TIME!" BC 

910 F=2:G=0 JM 

920 RFH JD 

930 REM *** STATS: *** FI 

940 PRINT; PRINT"[ DOWN] [c 7]TRIES: 12 3 

4 5 6 7 8 9 12 3 4 5" FA 

950 PRINT" WON:[c 6] "; :F0RI=1T015:PRI 
NTW$(I);" ";:NEXT NK 

960 PRINT:PRINTTAB(8) ; :F0RI=1T015:PRINTW 
2$(I);" "r:NEXT IP 

970 PRINT : PRINT" [DOWN ][c 3] [4" "]T0TAL G 
AMES: ";TT;SPC(3); "GIVEUPS :";GU CO 
980 PRINT"[D0WN][WHITE][5" "]D0 YOU WANT 

TO TRY AGAIN?" DL 

990 PRINT" ([ YELLOW ]Y/N[ WHITE] OR [YELL 
OW]I[WHITE] TO CHANGE # OF DIGITS)"; GD 
1000 GETYN$ : PRINT" [ HOME ][ DOWN ][ DOWN ]";TA 
B(5);A$(F):F=F-G GF 

1010 IFYN$="Y"THENFQ=150:GOSUB1220:GOT03 
70 GI 

1020 IFYN$="I"THENPRINT" [ CLEAR ] [ 3" [ DOWN ] 
"]":GOSUB126O:OL=ND:GOT0230 LB 

1030 IFYN$<>"N"THENG=-G : F0RT=1T0400 : NEXT 
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:G0T01000 KN 

1040 PRINT" [CLEAR]": END CI 

1050 REM JD 

1060 REM *** IN-GAME PROMPTS: JJ 

1070 0NRG0T01080 , 1 100 , 1 120 , 1 130 , 1 150 DG 
1080 FQ=200:GOSUB1220:FRINTrAB(6) ;"[ YELL 
OW] YOU'VE GOT 'EM ALL NOW!" BD 

1090 YG=1:GOT01140 CK 

1 100 GOSUB1370 : PRINTTAB(8) ; " [ YELLOW ]GOIN 
G FOR BROKE, EH?":TW=99:G0T011A0 LH 
1120 FQ=0:G0SUB1220:PRINTTAB(6) ;"[YELL0W 
]THIS IS YOUR LAST CHANCE !":G0T01140 HB 
1130 GOSUBI370lPRINTTAB(8);"[YELLOW]YOU 
HAVEN'T GOT IT [CYAN]YET?!" PA 

1140 PRINT"[UP]"; :F0RT=1T0350:X=T/33:NEX 
T: RETURN PA 

1150 GOSUB1370:PRINT:PRINT"[5" "][YELLOW 
]GOOD GUESS, BUT THE ANSWER WAS: [4" "][W 
HITE]" MP 

1160 PRINTA$(3) JG 

1170 PRINT"[UP][UP3";SPC(SP);:F0RI=1T0ND 
:PRINTR(I);SPC(6-ND);:NEXT: PRINT KE 
1180 P0KEQA,0:PRINT"[8" "][c 3]HIT ANY K 
EY TO CONTINUE [s Z]":WAITQA,1 IK 

1190 PRINT"[CLEAR][4"[DOWN]"]":GOSUB1260 
:F=2:G=0:P0KEQA,0: RETURN LO 

1200 REM JD 

1210 REM *** PITCHES: FM 

1220 POKEVL,14:POKEWF,0:P0KEPl,FQ+2O:POK 
EAD,25:P0KEWF,17 LN 

1 230 FORT= ITOl 00 : NEXT : POK EWF , : RETURN PN 
1240 REM JD 

1250 REM *** SWEEP: NH 

1260 F0RI=1T022:P0KEWW+I,0::NEXTI NF 
1270 P0KEWW+24,12:P0KEWW+5,80:P0KEWW+6,2 
43:P0KEWW+3,4::P0KEWW+4,129 AI 

1 280 F0RI=W0140STEP4 : POKEWW+1 , 1 : NEXTI : P 
0KEWW+4,128:F0RI=1T050:NEXTI JH 

1290 P0KEW;+4, 128: RETURN KH 

1300 REM *** TUNE: IB 

1310 FORI=WWTOWW+24:POKEI,0:NEXT AI 
1320 POKEVL , 6 : POKEAD , 31 : POKEWW+3 , 200 : POK 
EWW+2 , 200 : POKEWW+6 ,89 BO 

1330 F0RI=1T06 JB 

1340 P0KEWW+1,H(I):P0KEWW,L(I):P0KEWF,65 BA 
1350 F0RT=1T0D(I) :NEXT:P0KEWF,64:F0RT=1T 
010: NEXT: NEXTI: RETURN CO 

1360 REM *** RAZZ: KG 

1370 POKEVL, 15:P0KEAD,45:P0KEAD+1, 165 KC 
1380 POKEWF,33:POKEWF-3,6:POKEWF-4,5 BA 
1390 F0RT=1T0600 : NEXT : POKEWF , 32 : POKEWF-3 
,0:P0KEWF-4,0: RETURN HD 

1400 DATA 22,96,120,25,30,120,28,49,120 MG 
1410 DATA 33,135,325,28,49,110,33,135,10 
Vj HJ 



! entering any prograrns! 

C ft I fl I fl I 

ROM PAGE 45 

•10 REM**SET UP THE PRINTAT ROUTINE** BE 
•12 AT=679:FORN=ATTOAT+22:READM:POKEN,M:N 

EXT DJ 

•14 DATA32,180,2,132,251,32.180,2 AN 

•16 DATA166,251,76,240,255,32,253,174 KO 

•18 DATA32,158,173,32,170,177,96 PI 
•20 REM**EXAMPLE PROGRAM USING PRINTAT** GA 

•22 P0KE53280,14:P0KE53281,12 LM 

•24 PRINTCHR$(147)CHR$(144) BM 

•26 SYSAT,2,0:PRINT"NOW" CK 

•28 SYS AT, 5, 2: PRINT" YOU" DG 

•30 SYSAT,8,4:PRINT"CAN" PI 

•32 SYSAT,11,6:PRINT"PRINT" KL 

•34 SYSAT,8,17:PRINT"NEATLY" AP 

•36 SYSAT,11,16:PRINT"F0RMATTED" NN 

•38 SYSAT,14,17:PRINT"SCREENS" EP 

•40 FORN=OT02*[PI]STEP[PI]/40 AP 

•42 L=INT(12+SIN(N)*8) EB 

■44 C=INT(20+C0S(N)*8) FO 

•46 SYSAT.L.C: PRINT"*": NEXT AL 

•48 SYSAT,22,0 DE 



LUCKVLOTTERY 

FROM PAGE 53 

•30 L$="[ HOME] [23"[ DOWN]"]" LK 

•40 GOSUB 1000: GOTO 1500 NO 

•50 DIM NUM(45),TN(NN),PF(NN):C=0:B=0 ML 

•70 PRINT " [CLEAR ]":POKE 53280, 6: POKE 532 

81,1 01 

•80 PRINT LEFT$(L$,2)TAB(8)"[c 4][c A] [21 

"[s *]"][c S]" ML 

•90 PRINT LEFT$(L$,3)TAB(8)"[s B][21" "][ 

s B]" ED 

•100 PRINT LEFT$(L$,4)TAB(8)"[s B] [RED] 

LUCKY LOTTO MENU[c 4] [3" "][s B]" KM 

•120 PRINT LEFT$(L$,5)TAB(8)"[s B][21" "] 

[s B]" MJ 

•125 PRINT LEFT$(L$,6)TAB(8)"[c Z][21"[s 

*]"][c X]" ED 

•130 PRINT LEFT$(L$,10)TAB(8)"[BLUE][RVS0 

N][1][RVS0FF] -LOAD NUMBER FILE" LE 

•140 PRINT LEFT$(L$,ll)TAB(8)"[RVSON][2][ 

RVSOFF] -ENTER CURRENT NUMBERS" PM 

•150 PRINT LEFT$(L$,12)TAB(8)"[RVSON][3][ 

RVSOFF] -DISPLAY ALL NUMBERS" IN 

•160 PRINT LEFT$(L$,13)TAB(8)"[RVS0N][4][ 

RVSOFF] -6 MOST COMMON NUMBERS" NM 

•170 PRINT LEFT$(L$,14)TAB(8)"[RVS0N][5][ 

RVSOFF] -END SESSION" CE 

•175 PRINT LEFT$(L$,20)TAB(10)"[RED]Y0UR 

CHOICE ? [RVS0N][BLUE3[1-5][RVS0FF]" NO 
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180 GET AN$:IF AN$="" THEN180 CH 

190 AN=VAL(AN$) BK 

200 ON AN GOSUB 730,220,310,420,660 GG 

210 REM ========================= JO 

211 REM **** INPUT NUMBERS **** ML 

212 REM ========================= JO 

220 PRINT "[CLEAR]": POKE 53280, 12:P0KE 5 
3281,1 LM 

230 PRINT TAB(4)"[RED][D0WN][s U][30"[s 
*]"][s I]" DB 

240 PRINT TAB(A)"[RED][RVSON] ENTER THIS 
WEEKS LOTTO NUMBERS " OP 

250 PRINT TAB(4)"[RED][D0WN][UP][s J] [30 
"[s *]"][s K]" AA 

260 PRINT LEFT$(L$,8):T=6 CB 

270 FOR A=l TO 6: PRINT TAB( 10) "NUMBER "; 
A;: INPUT N(A) EJ 

280 FOR S=l TO NN:IF N(A)=S THEN 630 NO 
290 NEXT: NEXT EF 

301 G0T070 PF 

305 REM **** DISPLAY NUMBERS **** GG 

306 REM ========================= JO 

310 PRINT "[CLEAR]": POKE 53280, 3:P0KE 53 
281,1:T=4 JJ 

320 PRINT TAB(6)"[UP][RED][RVS0N] CURREN 

T LOTTO NUMBER LIST " BM 

330 FOR S=l TO NN;IF S=23 THENPRINT "[HO 
ME]":T=24 EJ 

350 IF S>9 THEN370 BE 

360 PRINT "[BLUE]"TAB(T);S" "TN(S):G0T03 
80 LK 

370 PRINT "[BLUE]"TAB(T-1);S" "TN(S) DH 
380 NEXT I A 

390 PRINTLEFT$(L$,25)"[c 4] PRESS [RVSO 
N] Fl [RVSOFF] FOR 6 MOST COMMON NUMBERS 

PB 



1". 



•400 GET AN$:IF AN$="" THEN400 

•410 IF AN$<>"[F1]" THEN400 

•414 REM ======================== 

•415 REM **** COMMON NUMBERS **** 



DC 
NC 
HL 
IC 
HL 



•420 FOR 1=1 TO NN:IF TN(I)>B THENB=TN(I) NF 
•430 NEXT I A 

•445 PRINT" [CLEAR]": POKE 53280, 6; POKE 532 

81,1 01 

•450 PRINT LEFT$(L$,1)TAB(8)"[RED][RVS0N] 

6 MOST COMMON NUMBERS " II 

•460 PRINT LEFT$(L$,3)TAB(12)"NUMBER";TAB 

(22)"TIMES" PN 

•470 FOR E=l TO 6:SW=0 GO 

•480 IF B<=0 THEN540 LK 

•490 FOR 1=1 TO NN:T=14 LD 

•495 IF I>9 THEN T=13 ML 

•500 IF TN(I)=B THEN PRINT TAB(T) ;I;SPC(7 

);TN(I):SW=1 MM 

•510 NEXT lA 

•520 IF SW=0 THENB=B-1:GOT0480 FM 



530 B=B-1 BA 

540 NEXT E MJ 

550 PRINTLEFT$(L$,22)TAB(5)"PRESS [RVSON 
][ BLACK ]F1[ RVSOFF] [RED] TO ENTER MORE NU 
MBERS" GF 

560 PRINT TAB(5)"PRESS [ RVSON ][ BLACK ]F3[ 
RVSOFF] [RED] TO VIEW ALL NUMBERS" FC 
570 PRINT TAB(5)"PRESS [RVSON] [BLACK ]F5[ 
RVSOFF] [RED] FOR MAIN MENU"; GK 

580 GET A$:IF A$="" THEN580 JI 

590 IF A$="[F1]" THEN220 KJ 

600 IF A$="[F3]" THEN310 KK 

610 IF A$="[F5]" THEN 70 IP 

620 IF A$<>"[F1]" OR A$<>"[F3]" OR <>"[F 
5]" THEN580 JL 

630 TN(S)=TN(S)+l:GOTO290 HF 

640 REM ======================== HL 

650 REM **** WRITE ROUTINE **** MA 
660 REM ======================== HL 

670 OPEN 2,8,2,"@0:"+NF$+",S,W" OA 
680 FOR S=l TO NN PE 

690 PRINT#2,TN(S) EH 

700 NEXT lA 

710 CLOSE 2: END JB 

715 REM ======================== HL 

720 REM **** READ ROUTINE **** CO 
725 REM ======================== HL 

730 PRINT" [CLEAR ]":POKE 53280, 6: POKE 532 
81,6 OP 

735 PRINT LEFT$(L$,10)TAB(10)"[WHITE]LOA 
DING NUMBER FILE[3"."]" HF 

736 PRINT LEFT$(L$,12)TAB(I1)"0NE MOMENT 
PLEASE" BC 

740 OPEN 2,8,2,"@0:"+NF$+",S,R" OJ 
750 FOR S=l TO NN PE 

760 INPUT#2,TN(S) CD 

770 NEXT S NH 

780 CLOSE 2: GOTO 70 AA 

990 REM ========================== ME 

991 REM **** SPRITE MOVEMENT **** NO 

992 REM ========================== ME 

1000 FOR S=50880 TO 5 1116: READ A: POKE S, 
A : NEXT OD 

1010 DATA 169,255,45,0,198,240,16,169,0, 
141,0,198,162,21,189,0 MN 

1020 DATA 197,157,0,198,202,208,247,162, 
1,169,1,141,80,197,173,80 KK 

1030 DATA 197,45,0,197,240,3,76,243,198, 
232,232,14,80,197,208,238 OJ 

1040 DATA 76,49,234 FG 

1050 DATA 169,0,29,0,197,208,3,76,97,199 
,169,128,61 DG 

1060 DATA 0,197,240,48,254,0,198,208,40, 
222,255,207,76,144,199,80 LE 

1070 DATA 197,45,16,208,208,12,173,16,20 
8,13,80,197,141,16,208,76 NB 

1080 DATA 43,199,173,16,208,77,80,197,14 
1,16,208,189,0,197,157,0 00 
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■1090 DATA 198,76,97,199,222,0,198,208,40 

,254,255,207,208,29,173,80 AB 

•1100 DATA 197,45,16,208,208,12,173,16,20 

8,13,80,197,141,16,208,76 NB 

•1110 DATA 91,199,173,16,208,77,80,197,14 

1,16,208,189,0,197,157,0 CD 

•1120 DATA 198,169,0,232,29,0,197,208.3,7 

6,140,199,169,128,61,0 PO 

•1130 DATA 197,240,11,254,0,198,208,20,22 

2,255,207,76,134,199,222,0 KG 

•1140 DATA 198,208,9,254,255,207,189,0,19 

7,157,0,198,202,76,233,198 FP 

•1150 DATA 169,255,221,255,207,240,3,76,4 

3,199,173,80,197,76,17,199 BD 

•1160 DATA 120,169,192,141,20,3,169,198,1 

41,21,3,88,96 JL 

•1170 SP=53248:SS=50433: PRINT "[CLEAR ]":P 

OKE 53280,9: POKE 53281,0 NP 

•1180 H=1:V=1 JF 

•1190 FOR L=SS TO SS+16 STEP 2 FH 

•1200 POKE L.HiPOKE L+1,V DC 

•1210 H=INT(RND(0)*247)+1:V=INT(RND(0)*3) 

+1:NEXT CH 

•1220 POKE 50688, FF FO 

•1230 FOR S=2040 TO 2047 MK 

•1240 POKE S, 14: NEXT EA 

•1250 FOR S=896 TO 959: READ CH NE 

•1260 POKE S,CH:NEXT HG 

•1270 S=l DL 

•1280 FOR L=53287 TO 53293 CE 

•1290 POKE L,S:S=S+1: NEXT: POKE 53294,14 LO 
•1310 S=20:A=30 PN 

•1320 FOR U53248 TO 53263 STEP 2 PG 
•1330 POKE L,S+48:P0KE L+l,A+40 OF 
•1340 S=S+25:A=A+25:NEXT KB 

•1350 POKE 53269,255 FI 

•1360 POKE 50432,255 HF 

•1370 SYS 51104 KF 

•1380 RETURN IM 

•1384 REM ====================== PM 

•1385 REM **** SPRITE DATA **** LF 
•1386 REM ====================== PM 

•1390 DATA 1,129,128,63,255,252,127,255,2 

54,255,255,255,255,255,255 10 

•1400 DATA 241,129,128,241,129,128,241,12 

9,128,255,255,252,255,255,254 GI 

•1410 DATA 127,255,255,63,255,255,1,129,1 

43,1,129,143,1,129,143,255,255,255,255 NH 
•1420 DATA 255,255,127,255,254,63,255,252 

,1,129,128,1,129,128,0 FG 

•1500 PRINT: PRINT: PRINT TAB(4)"[c 6][RVS0 

N]$[RVS0FF][11" "][RVSON]$[RVSOFF]" BG 
•1510 PRINT TAB(4)"[RVS0N]$[RVS0FF][11" " 

][RVSON]$[RVSOFF]" BL 

•1520 PRINT TAB(4)"[RVS0N]$[RVS0FF][3" "] 

[RVSON] [RVSOFF] [RVSON] [RVS0FF][5" "][ 

RVS0N]$[RVS0FF][3" "] [RVSON] [3" "]" LP 

•1530 PRINT TAB(4)"[RVSON][3"$"][RVSOFF] 



[RVSON] [RVSOFF] [RVSON] [RVSOFF] [5" "][ 

RVSON] [3"$"] [RVSOFF] [RVSON] [RVSOFF] [R 

VSON] " DD 

•1540 PRINT TAB(8)"[RVS0N] [RVSOFF] [RVSO 

N] [RVSOFF] [RVSON] [3" "] [RVSOFF] [5" "][ 

RVSON] [RVSOFF] [RVSON] [RVSOFF] [RVSON] 

[3" "]" AL 

•1550 PRINT TAB(8)"[RVS0N][3" "][RVSOFF] 

[RVSON] [RVSOFF] [7" "] [RVSON] [3" "][RVSO 

FF] [RVSON] " 
•1560 PRINT TAB( 12)" [RVSON] [RVSOFF] [3" " 

][ RVSON] [sEP] [RVSOFF] [6" "] [RVSON] [RV 

SOFF] [RVSON] [3" "]" 

•1570 PRINT TAB(12)"[RVSON][3" "] [RVSOFF] 
[RVSON] [ RVSOFF ][sEP][ 6" "] [RVSON] [RV 

SOFF] [3" "] [RVSON] " 
•1580 PRINT TAB( 16) "[RVSON] [c *] [RVSOFF 

] [RVSON] [RVSOFF] [RVSON] [RVSOFF] [6" " 

][ RVSON] [RVSOFF] [RVSON] [3" "]" 
•1590 PRINT TAB(16)"[RVS0N] [RVSOFF][c *] 

[RVSON] [RVSOFF] [RVSON] [3" "] [RVSOFF] [6 

" "] [RVSON] [RVSOFF] [RVSON] [RVSOFF] [ 

RVSON] " 
•1600 PRINT TAB(21)"[ RVSON] [RVSOFF] [10" 

"] [RVSON] [RVSOFF] [RVSON] " 
•1610 PRINT TAB(21)" [RVSON] [RVSOFF] [10" 

"] [RVSON] [3" "]" 

•1620 PRINT: PRINT " [WHITE ][ 40" [c P]"]" 
•1630 PRINT "[UP][RVSON][c 2] [18" "][BLAC 

K] [c 2][21" "]" DO 

•1640 PRINT "[UP][RVS0N][11" "][WHITE]DOU 

BLE[c 2] [BLACK] [c 2] [WHITE] SOFTWARE [ 

c 2][12" "]" 
•1650 PRINT "[UP] [RVSON] [19" "] [BLACK] [ 

c 2][19" "]" 

•1660 PRINT "[UP][WHITE][40"[c Y]"]" 
•1670 PRINT TAB(10)"[UP][c 2] DESIGNED BY[ 

oil III" 

•1680 PRINT TAB(19)"B0B LLORET" 

•1690 PRINT: PRINT TAB(ll)" [WHITE] PRESS [R 

ED]F1 [ WHITE ]T0 START"; 
•1700 GET A$:IF A$="" THEN 1700 
•1710 IF A$="[F1]" THEN FOR A=SP TO SP+7: 

POKE SP+2 1,0: NEXT: GOTO 2000 
•1720 IF A$<>"[F1]" THEN 1700 
•2000 PRINT" [CLEAR]" 
•2010 PRINTLEFT$(L$,10)" ENTER YOUR FILE 

NAME";: INPUT NF$ 
•2015 IF NF$="" THEN 2010 
•2020 PRINTLEFT$(L$,12)" ENTER HIGHEST NU 

MBER IN YOUR LOTTO"; : INPUT NN 
•2025 IF NN<1 THEN 2020 
•2030 G0T050 
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ALL THE PROGRAIVIS IN TfflS IS- 
SUE OF AHOY! ARE AVAILABLE ON 
DISK OR CASSETTE. SEE PAGE 65 
FOR DETAILS. 
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SMALL THINGS CONSIDERED ^^^^HIH 

Our congratulations to the following Commtxlore users, winners of subscriptions to Ahoy! courtesy of New York's Small 
Things Considered radio show (heard weeknighls 5-8 and Saturdays 6-8 on WNYC AM83): 

Thomas Louie Jeremy Rubin schncider Susie Freese Mario Costonz ^^H Misty Longo 



}bu need cm RS232 intei face for your Commodore. Tliis 
is a relatively inexpensive device that can he easily found 
at most stores that handle Commodore products. In ^en- 
end there are two different types of interfaces: terminal 
type and printer type. You need the printer type. You may 
then use the printer as any other one by simply changinf> 
one number when openinf" the printer channel jor output. 



SZ ^ i 
■ ^^^ ■ %0 ■ Continued from page 74 

removing the RS232 card since I will interchange the 

conrpuiers with the same printer) with a C-64. Is there 

a hardware product to do this, preferably one with few 

or no software commands? —Todd Walt<m 

Vicksburi>, MS 
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On Screen Status Display 



PAGE 
LINE 
COL 



JUST B tNSTlt*£ 
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FlLEKAME, 
raAUHAUS 



Cursor location 

ScroH fndlcaror 

Prini features cuirenVy being used 

Filename of Ie;»I 

Perceniaoo of RAW (memoryi usefl 

Ruler (alsQ mQssage line) 

Word wrap/juslitication Hag 

'QlocK marked' Hag 

Insert mode flay 

Characiers pei inch 

Number ol ttie curmnt font 

Name of the current tonl 



Overview of FONTMASTER 
word processor features: 

1) Powerful block manipulation 
commands (Cut. Paste, Move. Overlay)- 

2} User ' friendly effects Include (fonts, 
super/sub scripts, underlining, bold face, 
etc.] 

3) Up 10 eigtit different fonts can be used 
simultaneously. 

4} Many printing options sucf^ as page number- 
ing, litles, wordwrap, rigfit justification, and 
more. 

S) Eight disk \I0 commands (Save, Load, Verify, 
Erase. Elc.l- 



Create Your O wn or choose from over 15 type styles provided in this 
unique program. 

Including: Bouhous English 

■■•ok Italic 

i^^^ Bold ^^Irioli^ 

. VISA Pu^sw MiTio:i 



i)J-i^d<Jli Manhattan 
itop ScU^it 

QVTE ,^topbold 

unopepfsdn te't^TOZ" 



(913)827-0685 
inc. 3010 Arnold Road Salina, KS 67401 
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Hred of Pairing High Prices 

CHECK TH£«iE PRODUCTS 
FOR THE C-64: 

New Software 

I'riini- K:iL-li)i- HASIC" HM S4<).9.T 

fStXf Oif/it Ptvciitiu*^ Xfitth I'fiekfu/tf^ 

Wfite fat Free f'lt/rr 

Sli.v TRiVfl ' " 2-t.()i 

Software from Datamost 

.■\iikli ll>.9r> 

U.Hi 



Ailli' 



.Hi 



M)'. Kahol iirul his RxjVmjI Kautory .. .Ki.fl.^ 

Mviin-Hs II ^-i,n; 

Puiiii Miitrii- ait.s); 

K«ik l,.i;i<l! l(;,i*,5 

Kw-ik Wi-in-! lfi.t)5 

[mshU- (.\iti)TiHJcl(>i% IKJS 22,9J 

1541 User's Guide 22.95 

Books from Datamost 

Iimiiic (•iinmiciiiin-.- I M ).S 18.9.'5 

ir>.H Tsi-i-V (iiiidc 18.95 

Software/Book Combo's 

Idsiiii' C.imm.Klori- DOS :fli.!»," 

l.Ml I's.'i-'.s (iuiiii- ;!'.i.!ii 

(.'ojllilKwIort' <>4 ( 'iHislruc'UiHi Kit . . . .2,"j.tii 
GiuneM CoinimHloi-e's Play IH.tii 

St'ftif vfti-t^k tir yifnti-y urdfr ta: 

INEXSOFT 

"Intxpotnice Software &- Hooks . . . 

Our name and our fame" 

21113 l>evoii.shin;. Suite MOIA 

Chatiwdrth. CA 91311 

(818) 882-1 6«6 

IVf jxiy liw ptf.^ttiiff. CA >v:fkie}ftif add 
li.fiVt mtm lux. Most Datanwgt pirxlucts 
amilable. Software prv-tested on npyiw-sf, 
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...COMING IN THE AUGUST AHOY! (ON SALE JULY 2)... 



WINDOWS ON THE 
VIC AND 64 

ADD MACINTOSH MAGIC 

TD YOUR COMMODORE 

PROGRAMS 



OPENING 

CEREMONIES FOR 

THE 128 

COMMODORE'S NEW 

COMPUTER FROM THE 

INSIDE OUT 











FALLING NEEDLES 

AND 

SHARED BIRTHDAYS 

SIMULATIONS OF 
THE REAL WORLD 
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Simulator n 
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PutWseH In the pilot's seat of a Piper 181 Cherokee Archer tdr an awe-lnsplring flight over realistic scene. 
?roni New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic vta 
as you practice takeoffs, landings, and aerobatics. Compfete documentation will get you airborne quicWy 
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battle 
game FUght Simulator II features include ■ animated color 3D graphics ■ day, dusk, and night flying model 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
instrumentation ■ VOR, ILS, ADF, and DME radio equipped ■ navigation facilities and course plotting ■World 
War I Ace aerial battle game ■ complete Information manual and flight handbook. 



tee your aeafer 

or lof direct orders enclose $49.95 plus $2.00 lor shipping and spscily UPS 
or first class mail delivery. American Express, Diner's Club, MasterCard, and 
Visa accepted. 

Order Line: 800 / 637-4983 

Render Service No. 1M 



[ifl[o)LDGIC 

Corporation 

713 Edgebrook Drive 
Champaign IL 61820 

(217) 359-8482 Telex: 206995 
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BEACH-HEAD — As chie 
commander of armed force 
m the Pacific, your firs 
assignment is a tough one. Your mission is to obtain a quici 
naval victory and invade enemy lerntory with land forces BEACH-HEAD ll| 
»— The wartime drama continues with "The Dictator Strikes Back 
BEACH-HEAD II is a true "head to head two player game with voic- 
simulation and superb multiscreen graphics RAID OVER MOSCOW - 
The Soviets launch a first strike against the United States Can yoi/ 
commandos react in time to stop the attack? 
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UibWtlaittiiii6iioiii 
at addiliDiul basic mH 
disk ntjiogiiig 

MitliUiuileiwilil(Ud9Ai 
all piDgnim u; 1o ^00% tasiB 91 
a ooinal )MI diU dtin i ' 
addiliim "singlt licyslroki' 
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moiF pleasji)! Mach 5 
molifies tliE m kenul aial t 
UDMs Id liK u(i an xidilingl^ 
byte dI mtrorf fdi >st by I 
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mtt iioinal CBM itisw 2 kd 
aMMxIiSlosiie 

Mxli 5 Disli Oijaiinr «| 
comptaeiKiife disk fiuitagMf 
piogian winch riH neat: a tf 
disk containin; diitciofy ntnni 
tiN Irsm ll)c ii!« s Him M 
Mraiy Disk na[res IiIe namei^ 
Dlhe impoit^i; iiwrratiiiii tsM 
malicall) utiactai ticini a disk a 
catalog toi Mm ntHtne t 
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all disks and all Ills mthin 1 
libraiy. di seaitfi Idi stntd 
names m parts ol lumes C 
(an iK diietled to ettUi ! 
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5= Software Incorpo rated 



These Access Software products are compatible with tli£ 
Commodore 64, Atari, Apple II+/IIC/IIE and IBM PC/PC Jr. Be 

» look for other Access Software products at a store near you 
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DON'T MISS THE BOAT! 
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SUBSCRIBE 
TOAHOV! 

Send me twdve isues of AHOY! Sor $19.95 
($26.95 Canada & elsewhere). I unders- 
tand that I win be billed later. 



D Send me twenty-four issues of AHOY! for 
$37.95 ($49.95 Canada & elsewhere). I 
understand that I will be billed later. 

NAME__ ^_^ 

ADDRESS 

CITY 

STATE 
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READER SERVICE CARD 

To request additional infurmatiou on anv product advertised or otherwise pictured in this issue ol Ahoy.' 
that is accompanied by a reader service number, circle the corresponding number below and mail this 
card. We will promptly forward your request to the designated companies. 
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